ListView Komponente mit leben erfüllen und Bearbeiten

[alefor19]

So habe hier mal weiter gemacht nach freundlicher hilfe aber es steckt noch der wurm drin er fänt nicht an die einträge in der ersten spalte zu beschreiben sondern erst in der 2 und die Rückfuührung in die Edit Komponente geht nicht er sagt immer wieder Bezeichner falsch

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);  //Schließt Programm
begin
close;
end;

procedure TForm1.BitBtn5Click(Sender: TObject); //Löscht die Gesamte ListView
begin
Listview1.Clear;
end;

procedure TForm1.BitBtn3Click(Sender: TObject); //Löscht makierten eintrag
var i:Integer;
begin
  for i := 0 to ListView1.Items.Count -1 do
    if ListView1.Items[i].Selected then
      ListView1.Items.Delete(i);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var listitem:Tlistitem;
begin
ListItem:=TlistItem.Create(ListView1.Items);
ListItem.Caption:='Semi';
ListItem.SubItems.Add(Edit1.Text);
ListItem.SubItems.Add(Edit2.Text);
ListItem.SubItems.Add(Edit3.Text);
ListItem.SubItems.Add(Edit4.Text);
ListItem.SubItems.Add(Edit5.Text);
ListItem.SubItems.Add(Edit6.Text);
ListItem.SubItems.Add(Edit7.Text);
ListItem.SubItems.Add(Edit8.Text);
ListItem.SubItems.Add(Edit9.Text);
ListItem.SubItems.Add(Edit10.Text);
ListItem.SubItems.Add(Memo1.Text);
ListView1.Items.AddItem(ListItem);
end;

//Procedure ListView1SelectItem(Sender: Tobject; Item: TListItem;
//      Selected: Boolean);
//begin                                  //Überträgt die Strings in den Editfeldern
//with Item do                           //In die Listview
// begin
//  Edit1.Text:=IntToString;
//  Edit1.Text:=SubItems.Strings[0];
//  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[10];
//  Memo1.Text:=SubItems:Strings[11];
// end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
with ListView1.ItemFocused do     //Bringt bei makrierung Die SubItems in die
 begin                            //Edit Felder zum Bearbeiten
  SubItems[0]:=Edit1.Text;
  SubItems[1]:=Edit2.Text;
  SubItems[2]:=Edit3.Text;
  SubItems[3]:=Edit4.Text;
  SubItems[4]:=Edit5.Text;
  SubItems[5]:=Edit6.Text;
  SubItems[6]:=Edit7.Text;
  SubItems[7]:=Edit8.Text;
  SubItems[8]:=Edit9.Text;
  SubItems[9]:=Edit10.Text;
  SubItems[10]:=Memo1.Text;
  end;
 end;

procedure TForm1.FormCreate(Sender: TObject);//Lehrt zum Programmstart alle
begin                                        //Beschreibbaren Komponenten
Edit1.Text:='';                              //Zur Vorsicht
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Memo1.Text:='';
end;

end.