"Datenbank" mit Listbox + Richedit

[fkerber]

Hi!

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
case Listbox1.ItemIndex of
  0: begin Memo1.Text:='1'; end;
  1: begin Memo1.Text:='2'; end;
  end;
end;

Ciao fkerber