Ĺadny brzuch
Witam :)
Jak wpisac jakis tekst a pozniej zeby losowalo do Memo ??
Znaczy mam np. trzy teksty:
1. 8IE53A-2SA
2. JHJSHUD-12
3. Jjdnhsdjh-1
I chce zeby pomiedzy tymi tekstami program wylosowywal jeden do memo...
Licze na pomoc ;)
*Wiem ze to banal, ale ja jestem nubishkiem ;)*
pozdrawiam.
zrób tak:
masz 1 zmienną np integer o nazwie abc
biezesz losujesz do niej liczby od 1 do 3 (random i randomize)
i dajesz pentle jezeli np abc to 1 wtedy memo=tekst1
else if
jezeli abc to 2 wtedy memo=tekst2
itp
chyba rozumiesz?
Użytkownik v0lt edytował ten post 04 grudzień 2005, 15:54
Zrobilem tak:
var r:integer; begin r:=random(10); case r of 0:begin Memo1.Text:='Duzy LOL'; end; 1:begin Memo1.Text:='LOL'; end; ;)
const txt : array [0..2] of string = ('8IE53A-2SA','JHJSHUD-12','Jjdnhsdjh-1'); begin Randomize(); Memo1.lines.add(txt[random(length(txt))]);
Wyswietla blad na const:
Statement Expected but const found
a pokaz gdzie dales const?
Użytkownik migajek edytował ten post 04 grudzień 2005, 16:39
procedure TForm1.Button1Click(Sender: TObject); begin const txt : array [0..2] of string = ('8IE53A-2SA','JHJSHUD-12','Jjdnhsdjh-1'); begin Randomize(); Memo1.lines.add(txt[random(length(txt))]);
const to tak jak var. ma się znajdować przed blokiem 'begin'
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak wpisac jakis tekst a pozniej zeby losowalo do Memo ??
Znaczy mam np. trzy teksty:
1. 8IE53A-2SA
2. JHJSHUD-12
3. Jjdnhsdjh-1
I chce zeby pomiedzy tymi tekstami program wylosowywal jeden do memo...
Licze na pomoc ;)
*Wiem ze to banal, ale ja jestem nubishkiem ;)*
pozdrawiam.
zrób tak:
masz 1 zmienną np integer o nazwie abc
biezesz losujesz do niej liczby od 1 do 3 (random i randomize)
i dajesz pentle jezeli np abc to 1 wtedy memo=tekst1
else if
jezeli abc to 2 wtedy memo=tekst2
itp
chyba rozumiesz?
Użytkownik v0lt edytował ten post 04 grudzień 2005, 15:54
Zrobilem tak:
var r:integer; begin r:=random(10); case r of 0:begin Memo1.Text:='Duzy LOL'; end; 1:begin Memo1.Text:='LOL'; end; ;)
const txt : array [0..2] of string = ('8IE53A-2SA','JHJSHUD-12','Jjdnhsdjh-1'); begin Randomize(); Memo1.lines.add(txt[random(length(txt))]);
Wyswietla blad na const:
Statement Expected but const found
a pokaz gdzie dales const?
Użytkownik migajek edytował ten post 04 grudzień 2005, 16:39
procedure TForm1.Button1Click(Sender: TObject); begin const txt : array [0..2] of string = ('8IE53A-2SA','JHJSHUD-12','Jjdnhsdjh-1'); begin Randomize(); Memo1.lines.add(txt[random(length(txt))]);
const to tak jak var. ma się znajdować przed blokiem 'begin'