Zitat von
Stern:
Entschuldigt bitte, wenn ich mich so doof anstelle. Aber jetzt blick ich es wirklich nich mehr...
Wenn ich das ganze mit ListBox1.ItemIndex zurückschreibe bekomm ich es an das Ende der datei und mit meiner Version von oben an das Ende. Aber ich schaff es nicht mir den Index zu merken und dann beim überschreiben wieder einzusetzen...
Kann mir vielleicht nochmal jemand kurz an meinem Beispiel zeigen, wie ich das hinbekommen könnte?
Liebe Grüße
Steffi
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
If ListBox1.ItemIndex > -1 then Edit1.Text := ListBox2.Items[ListBox1.ItemIndex];
end;
Soweit war es ja klar ... oder?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
If ListBox1.ItemIndex > -1 then ListBox2.Items[ListBox1.ItemIndex] := Edit1.Text;
end;
Und anders rum sollte das auch gehen
