>>>>Mnożenie w DELPHI

[mikszy5]

Witam jakiej musze urzyć komendy jeżeli chce zrobić coś takiego
wpisuje jakąś liczbę do edit1 naciskam button1 i ta liczba(z edit1) zostaje pomnożona przez 12 a wynik jets podany w label1

 

[BolekTrojan]

var
I : Integer;
begin
I := StrToInt(Edit1.Text)*12;
Label1.Caption := IntToStr(I);[/b]

 

[mikszy5]

A jak zrobić coś takiego ze po wpisaniu tekstu do editów wyskakuje okienko z tekstem w tym polu muszą być wpisane liczby a jak wpisze liczby to będzie normalnie działało

 

[BolekTrojan]

Moze sproboj uzyc wyjatku:

try
// to co ma wykonac
except
//jezeli wystapi wyjatek wtedy cos...
end;

Jak nie wiesz o co chodzi to napisz

[/b]

 

[mikszy5]

oki rozumiem

Dzięki

 

[rzeszutek]

Mozesz też zablokować możliwość wpisywania znaków innych niż liczby
Kodzik jest w C++, ale przetłumaczenie na delphi nie powinno Ci sprawic problemu

bool warunek = ((Key >= '0') && (Key <= '9') || 

                   (Key == VK_BACK)   ||

                   (Key == VK_DELETE));

   if (!warunek) 

   { 

      Key = 0;   //ignorujemy wprowadzony znak gdy nie spelnia warunku

      MessageBox(Handle, "Wpisuj tylko cyfry", "komunikat", MB_OK | MB_ICONSTOP | MB_APPLMODAL);

   }

Wrzucasz to do OnKeyPress edita

 

[mikszy5]

Znowu potrzebuje pomocy bo nieiwem jak zrbić coś takiego mam 6 timege i musze zrobić tak jeżeli wartość label1 jest mniejsza od 5 wtedy wyświetl imege1 jeśli większa od 5 ale mniejsza od 20 wyświoetl image2 i tak dalej co 10 aż do image6