random løkke.

Hvordan får jeg et program til at vælge en tækst fra en editboks ud fra 5, alså vælger den en tilfældig tækst fra en af de 4 editbokse.

Jeg vil også gøre sådan at vis der ikke står noget skal den bare ikke være med i løkkens random halløj.

her er lidt kode håber du kan bruge det:

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
memo1.Lines.Clear;
if edit1.Text = '' then
//
else
memo1.Lines.Add(edit1.Text);
if edit2.Text = '' then
//
else
memo1.Lines.Add(edit2.Text);
if edit3.Text = '' then
//
else
memo1.Lines.Add(edit3.Text);
if edit4.Text = '' then
//
else
memo1.Lines.Add(edit4.Text);
if edit5.Text = '' then
//
else
memo1.Lines.Add(edit5.Text);
Label1.Caption := memo1.Lines[random(memo1.Lines.Count)];
end;

Den virker fint hos mig husk at have systen under uses.

Fantastisk. tak for det.
Vis en elle anden ved nu hvordan pc'en finder ud af hvordan man kan få den til at finde det højeste tal i eksempel edit1, edit2 og edit3 og skrive dem i rækkefølge med det højeste tal først, i eksempel en memo eller den der liste halløj.


Har ingen eksempel, det er bare et spørgsmål??????????

Tak på forhånd.