Problem z porównywaniem...

0

Oto kodzik:

var
 Suma : Integer;
 Password : Integer;

begin
 Password := 501234567;
 Suma := 501234567;

    if (Suma = Password) then begin
    Label4.Caption := 'Działa ' end else
    Label3.ShowHint := False;
    Label4.Caption := ' Błąd - Niepoprawny Numer Seryjny';
    Label1.Caption := 'Ładowanie programu zakończone niepowodzeniem';

end;

Zawsze wyświetla mi błąd pomimo że liczby są takie same :(

0

A o begin i end (po else) słyszałeś? Czy może delphi pomyliło Ci się z vb?

0

Działa, dzięki - wiedziałem że problem nie jest duży...

Co do VB, to uczyłem się go w gimnazjum 2 lata temu
i nic z niego nie pamiętam - w Delphi mało pisze
przeważnie siedze w PHP :)

Pozdro i dzięx

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