Listbox und Memo

Hochhäusl · Beiträge: 57

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

Ehemaliges Mitglied Erhaltene Danke: 1

Beide Komponenten haben die Einegenschaften / Methoden

markieren

Quelltext

1:	Items.Strings[i]

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

smiegel · Verfasst: 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.

markieren

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.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme