PYTANIE!!!

0

Jak po nacisnieciu buttona w komponemcie memo bedzie pokazywal sie tekst ale za kazdym razem inny?
np.
Hello word.
potem
Hello.
potem
word.
I jezeli tekst Hello word pojawi sie w memo to w ListBox'ie pojawią sie jakies wyrazy.
np.
piłka
bramka
rower

0

to moj pomysl na procke losujaca slowa :

var
x : integer;
begin
X := random(3);
begin
if x = 0 then
memo1.Lines.Add('hello');
if x = 1 then
memo1.Lines.Add('hello world');
if x = 2 then
memo1.Lines.Add('world');
end;
end;

na razie mam czasu ale jak znajde to dopisze jak srobic dalej...--Ozyrys Pozdrawiam {hello}
Delphi 6

0

Podstawy - poczytaj jakis kurs.
Co do pierwszego pytanie jesli chcesz zeby teksty w memo wyswietlaly sie w odpowiedniej kolejnowsci zadeklaruj sobie tablice z tymi wyrazami i zmienna ktora bedziesz zwiekszal zakazdym razem.

A z listboxem to sproboj tak:
var
ListItem : TListItem;
begin
ListItem := ListView.Items.Add;
ListItem.Caption := 'twoj text';
end;--Pozdrawiam {hello}
Tomasz K.

0

maginott napisał:
&gtCo do pierwszego pytanie jesli chcesz zeby teksty w memo wyswietlaly sie w odpowiedniej kolejnowsci zadeklaruj sobie tablice...

Z tego co ja zrozumialem to on chcial zeby text byl losowany...
Jak nie mam racji to sorry za zamieszanie :-)

dokonczona procedura :

procedure TForm1.Button1Click(Sender: TObject);
var
x : integer;
begin
X := random(3);
begin
if x = 0 then
memo1.Lines.Add('hello');
if x = 1 then
begin
memo1.Lines.Add('hello world');
ListBox1.Items.Add('piłka');
ListBox1.Items.Add('bramka');
ListBox1.Items.Add('rower');
end;
if x = 2 then
memo1.Lines.Add('world');
end;
end;--Ozyrys Pozdrawiam {hello}
Delphi 6

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0