[Delphi] Coś losowo

[myslaf]

Witam !
Mam pytanie. Jak zrobić coś losowo ?
A raczej chodzi mi o to że jeśli mam Edit1 i Button1.
To:
Jeśli kliknę w Button1 to w Edit1 będzie losowało tekst i go wyświetlało.

 

[maly3900]

Najpierw definiujesz odpowiedzi, a potem:

http://www.delphibasics.co.uk/RTL.asp?Name=Random

 

[myslaf]

A jeśli bym zrobił memo i w nim:
Serial1
serial2
serial3
serial4
I z niego by losowało linie która pojawiała by się w Edit1. Ale nie wiem jak to zrobić.

 

[KangurX]

Nie wiem jak to w delphi jest, ale moze sa odwolania do danej linii w memo, a raczej indexu w nim.

 

[maly3900]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer; //zmienna do której "losuje się liczba"
begin
i := random(memo1.Lines.Count); //przypisanie do zmiennej liczby która jest losowana od 0 do ilosci linii w memo1
randomize; //wylosowanie liczb
edit1.Text := memo1.Lines[i]; //przypisanie edit1.text linii która została wylosowana (zmienna i)
end;

Zazwyczaj nie daję gotowych kodów źródłowych... eh, znaj moje dobre serce... ;D

 

[fokus475]

Taka pomoc to mi sie podoba I sadze ze memo bedzie dobrym rozwiazaniem

P.S. - w przypadku programow komputerowych NIE ISTNIEJE cos takiego jak losowosc - nigdy nie bedzie wybierane losowo - zawsze wedlug jakiegos, nawet najbardziej rozwinietego algorytmu.

 

[KangurX]

Istnieje cos takiego, ale to juz gdzies tam i losowosc jest generowana przy uzyciu np: zmiany pogody, cisnienia, etc.