Text in Edit automatisch eintrageb

[DeddyH]

Zitat von Kutter111:

Dieser letzte Eintrag soll nun in der Form1.LisBox1 automatisch ausgewählt werden und die Edits mit den Values der ausgewählten Section befüllt werden.

Auswählen kannst Du den Eintrag, indem Du den ItemIndex setzt. Das Befüllen der Edits würde ich in eine eigene Prozedur auslagern, die Du nach dem Setzen des ItemIndex aufrufst.

Delphi-Quellcode:

procedure TForm1.FillEdits;
begin
  if ListBox1.ItemIndex > -1 then
    begin
      Edit1.Text := 'Bla';
      Edit2.Text := 'Blubb';
      //...etc.
    end;
end;

procedure TForm1.Irgendwas;
begin
  ListBox1.ItemIndex := ListBox1.Items.IndexOf(DeinString);
  FillEdits;
end;

So in der Art.