var
Form1: TForm1;
i,j,pos,pocet:integer;
pole:array [1..25] of integer;
ret:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
labelededit1.Text:=''; labelededit2.Text:='';
for i:=1 to 25 do
begin
pole[i]:=Random(99)+1;
labelededit1.Text:=labelededit1.Text+IntToStr(pole [i])+k;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
labelededit2.Text:='';
for i:=1 to 25-1 do
for j:=1 to 25-1 do
if pole[j] < pole[j+1] then
begin
pos:=pole[j]; pole[j]:=pole[j+1];
pole[j+1]:=pos;
end;
for i:=1 to 25 do
labelededit2.Text:=labelededit2.Text+IntToStr(pole [i])+ ' ,';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
listbox1.Items.SaveToFile('pole.txt');
end;
end.
Z toho druhého editu bych to rád dostla do listboxu, když z editu to uložit nepůjde, abych to pak mohl mít v textovém souboru.