Generovanie pomocou pola

[hosť]

Zdravim ta potreboval by som
mat nejake pole napr: aby v premennej "b" boli retezce + - * / a jeden button ktory by mi generoval tie 4 chary a vypisoval ich v nejakom tom labeli..

DIk moc..

[hosť]

deklarovanie premennej b:
za riadky

Kód: Vybrať všetko

var
  Form1: TForm1;

vloz riadok

Kód: Vybrať všetko

  b: Array[1..4] of char;

Naplnenie premennej b:

Kód: Vybrať všetko

procedure TForm1.FormCreate(Sender: TObject);
begin
b[1]:='+';
b[2]:='-';
b[3]:='*';
b[4]:='/';
end;

Vypisanie prveho zaznamu (znak '+') do labelu po stlaceni Button1:

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=b[1];
end;

[hosť]

A ako by sa to dalo spravit aby to generovalo tie znaky. Mam na mysli z budem mat button na ktory ked kliknem mi bude náhodne generovat 1 zo znakov (+ - / *) a vypisovat niekte v labeli .
Dik.

[hosť]

Ak to chces mat nahodne, tak si najprv do programu pridaj funckiu RND odtialto: viewtopic.php?t=331
a potom zmen v povodnom kode tento text:

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=b[Rnd(1,4)];
end;

[hosť]

Mam dva editi v ktorych nahodne generujem cisla od 1 - 100 potom mam tam tvoju funkciu ktora mi generuje znaky(+ - / *) a potrebujem aby napr: v edite1 bude 100 v edite2 bude 10 a znak sa vygeneruje na / a aby mi to napr. v nejakom tom labeli vypisalo vysledok cize 10.

[hosť]

Takze mas
Edit1, kde mas prve cislo
Edit2, kde mas druhe cislo
Label1, Kde mas znak +, -, * akebo /
Label2, kde sa ma zobrazit vysledok
Button1, ktory to cele spusti

Po stlaceni Button1 si daj toto:

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
begin
IF Label1.Caption='/' THEN Label2.Caption := FloatToStr(StrToInt(Edit1.Text) / StrToInt(Edit2.Text));
IF Label1.Caption='*' THEN Label2.Caption := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));
IF Label1.Caption='+' THEN Label2.Caption := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
IF Label1.Caption='-' THEN Label2.Caption := IntToStr(StrToInt(Edit1.Text) - StrToInt(Edit2.Text));
end;

[hosť]

Diky moc to bolo presto to co som potreboval.