Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Listbox und Memo


Hochhäusl - Mo 27.01.03 16:14
Titel: Listbox und Memo
Hi,


ich habe ein Problem, nähmlich:
Wenn man einen Eintrag (z.b. den 3. von oben)in einer Listbox anklickt
soll aus einer Textdatei (Memo) eine bestimmte Zeile (die 3.) in ein Editfeld kopiert werden!

Wie kann man das am besten anfangen?

Danke im voraus
Hochhäusl


Delete - Mo 27.01.03 16:17
Beide Komponenten haben die Einegenschaften / Methoden

Quelltext 
1:
 
Items.Strings[i]

Damit sollte sich doch was anfangen lassen oder? :wink:


smiegel - Mo 27.01.03 16:21
Hallo,

das folgende Beispiel nutzt das OnClick-Ereigniss der Listbox. Dort erhälst Du den aktuell gewählten Eintrag der Liste über die Eigenschaft ItemIndex. Mit diesem wird dann die entsprechende Zeile in der Memo in das Edit kopiert.


Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with TListBox(Sender) do
  begin
    if (ItemIndex<>-1) then Edit1.Text:=Memo1.Lines[ItemIndex];
  end; // with
end;


Das Beispiel funktioniert aber nur, wenn die Liste und das Memo gleich viel Einträge enthalten.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!