1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.SaveBtnClick(Sender: TObject);
begin
  {if SaveDialog1.Execute then
    LB1.Items.SaveToFile(SaveDialog1.FileName);}  //einfach!
  if SaveDialog1.Execute then                     //mit Sicherheitsabfrage!
    if FileExists( SaveDialog1.Filename)
      then
        begin
          if MessageDlg('Datei existiert schon, überschreiben?'
             ,mtWarning,[mbNo,mbYes],0)=mrYes then
             LB1.Items.SaveToFile(SaveDialog1.Filename)
        end
      else LB1.Items.SaveToFile(SaveDialog1.Filename);
end;

procedure TForm1.LoadBtnClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    LB1.Items.LoadFromFile(OpenDialog1.FileName);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
// Sender ist das auslösende ListView
// in Item steht das ausgewähle ListView-TListItem
// Selected zeigt an, ob das Item an- (True) oder abgewählt wurde
begin
  with Item do                             // auf das Item zugreifen 
    begin
      Edit1.Text:= SubItems.Strings[0];    // und die TEdits mit den entsprechenden SubItems (Untereinträge des Items) füllen
      Edit2.Text:= SubItems.Strings[1];
      Edit3.Text:= SubItems.Strings[2];
      Edit4.Text:= SubItems.Strings[3];
      Edit5.Text:= SubItems.Strings[4];
      Edit6.Text:= SubItems.Strings[5];
      Edit7.Text:= SubItems.Strings[6];
      Edit8.Text:= SubItems.Strings[7];
      Edit9.Text:= SubItems.Strings[8];
      Edit10.Text:= SubItems.Strings[9];
    end;
end;