Ich war mal so frei und habe dir paar Beispiele geschrieben.
Vielleicht kannst du das eine oder andere gebrauchen.
Es ist von der Sache her ganz einfach, wenn man weiß wie.
Delphi-Quelltext
1:
2:
3:
4:
| Listbox1.Items.Add('es')
Listbox1.Items.Add('ist')
Listbox1.Items.Add('auch')
Listbox1.Items.Add('möglich') |
Wenn man nicht diesen umständlichen weg gehen will, dann nimmt man eine der folgenden.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
| procedure TForm1.ListBox1Click(Sender: TObject);
begin
form1.Panel1.Caption:=listbox1.Items[listbox1.ItemIndex];
Form1.Caption:='Sie haben den Eintrag '+inttostr(listbox1.ItemIndex+1)+' ('+listbox1.Items[listbox1.ItemIndex]+') gewählt';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.CommaText := 'Ach was ist das für ein schöner Tag !';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.CommaText := 'Es,Geht,auch,so,!';
end;
procedure TForm1.Button3Click(Sender: TObject);
Var StrList: TStringlist;
begin
StrList := TStringlist.Create;
StrList.CommaText := 'Das kennen wir ja schon ! ;-)';
Listbox1.Items := StrList;
end;
procedure TForm1.Button4Click(Sender: TObject);
Var StrList: TStringlist;
i :integer ;
begin
StrList := TStringlist.Create;
StrList.CommaText := ';-) Kopf dem auf stehen Einträge';
Listbox1.Items := StrList;
For i := 0 to listbox1.Count-1 do
Listbox1.Items[listbox1.Count-1-i] := StrList[i];
end;
procedure TForm1.Button5Click(Sender: TObject);
Var i : Integer;
begin
for i := 0 to listbox1.Count-1 do
listbox1.Items[i] := listbox1.Items[i] +' is Nr. '+ inttostr(i);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Listbox1.Items.LoadFromFile('C:\xyz.txt');
end; |
Gruß raven
