hallo stelle mal mein programm ein, der datentyp ist integer
hoffe das ist nicht zuviel, danke für eure hilfe
Delphi-Quellcode:
type
TForm1 = class(TForm)
Li_zufa: TListBox;
B_zuf: TButton;
B_loeschen: TButton;
procedure feld_fuellen;
procedure feld_anzeigen;
procedure B_zufClick(Sender: TObject);
procedure B_loeschenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
z:array[1..100]of integer;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.feld_fuellen;
var i:integer;
begin
for i:=1 to 100 do z[i]:= random (6)+1;
end;
procedure TForm1.feld_anzeigen;
var i:integer;
begin
for i:=1 to 100 do Li_zufa.items.Add(inttostr(z[i]));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize
end;
procedure TForm1.B_zufClick(Sender: TObject);
var i:integer;
begin
feld_fuellen;
feld_anzeigen;
end;
procedure TForm1.B_loeschenClick(Sender: TObject);
begin
//Liste löschen
Li_zufa.items.clear;
end;
end.
[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst erledigen. Mfg, Matze[/edit]