[cya]
Mam problem z serialem.Po wpisaniu do buttona kodu:
if
edit1.text=75x5654
then
begin
form1.close;
release;
form2.show;
end
else
showmessage('blandne haslo');
wyskakują mi błędy:
[Error] Unit1.pas(30): Incompatible types: 'String' and 'Integer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
A przecież utworzyłem potrzebne komponenty: buttona i edit1
Co mam robić ???
Dzięki za pomoc [cya]
edit1.text=<font color="red">'</span>75x5654'
jesli piszesz program tak jak dałes tutaj przyklad to jest strasznie nieczytelny spojrz sobie na faq na 4p o pisaniu programow
if edit1.text='75x5654' then
begin
form1.close;
release;
form2.show;
end
else
showmessage('blandne haslo');
czy nie jest bardziej czytelne ?
a no .... :DDDDD spoko nauczy sie kiedys ;-). Nie widzisz ze to poczatkujacy ? napisze wiekszy program i jak nie bedzie sie mogl w nim polapac to zalapie o co chodzi w czytelnym kodzie.
Nie rozumiem co masz do niego. Nie zastosował tylko , ale zaraz zastosuje, bo go poprawie ;P
if edtSerial.Text = '75x5654' then begin
frmSerial.Close;
Release;
frmMain.Show;
end else ShowMessage('Podany numer seryjny jest nieprawidłowy.');
A czy to nie jest bardziej zwięzłe i tak samo czytelne?
Przy okazji przypominam niektórym o tagu delphi, bo już mi się odechciewa poprawiać!!
Przy okazji przypominam niektórym o tagu delphi, bo już mi się odechciewa poprawiać!!
Nie martw się, tym razem ja poprawiłem :)
Wszystko jest kwestją gustu...
a pozaty ady coś wpisać do editu najpierw musi byś stringiem. Jeżeli to liczba typu iteger albo int 64 użyj IntToStr(nazwa zmiennej).
A nie lepiej wyglada:
begin
if edtSerial.Text = '75x5654'
then
begin
frmSerial.Close;
Release;
frmMain.Show;
end
else ShowMessage('Podany numer seryjny jest nieprawidłowy.');
end;
Przy wiekszym kodzie to wychodzi widac ktore begin odnosi sie, do ktorego end