Ładny brzuch
var
INI : TINIFile
begin
if not FileExists(ExtractFilePath(Application.ExeName) + 'setup.ini') then
begin
Login := InputBox('Rejestracja...', 'Podaj login', '');
if Login <> '' then
begin
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'setup.ini');
try
INI.WriteString('Main', 'Login', Login);
lblMain.Caption := 'Witaj ' + Login;
finally
INI.Free;
end;
Exit;
end else Application.Terminate;
end;
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'setup.ini');
try
Login := INI.ReadString('Main', 'Login', 'co tam');
lblMain.Caption := 'Witaj ' + Login;
finally
INI.Free;
end;
end;
Wazystko jest w zdarzeniu onCreate i pokazuje mi bd:Undeclared identifier: 'lblMain'
Moe mi kto z ty pomuc???
W przyjani zdarza sie falstart!!!
cytat:MODY napisa:
...
A moze bys poda jaki blad wyskakuje ?? [:/] ;)
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
Jak na moje oko to musisz sobie stworzyc Label i nazwac go lblMain..
Ja tak zrobilem i wszystko dziala tak jak powinno :)
cytat:
A moze bys poda jaki blad wyskakuje ?? [:/] ;)
A moe bys sie nauczy czyta???
W przyjani zdarza sie falstart!!!
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
INI : TINIFile
begin
if not FileExists(ExtractFilePath(Application.ExeName) + 'setup.ini') then
begin
Login := InputBox('Rejestracja...', 'Podaj login', '');
if Login <> '' then
begin
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'setup.ini');
try
INI.WriteString('Main', 'Login', Login);
lblMain.Caption := 'Witaj ' + Login;
finally
INI.Free;
end;
Exit;
end else Application.Terminate;
end;
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'setup.ini');
try
Login := INI.ReadString('Main', 'Login', 'co tam');
lblMain.Caption := 'Witaj ' + Login;
finally
INI.Free;
end;
end;
Wazystko jest w zdarzeniu onCreate i pokazuje mi bd:Undeclared identifier: 'lblMain'
Moe mi kto z ty pomuc???
W przyjani zdarza sie falstart!!!
cytat:MODY napisa:
...
A moze bys poda jaki blad wyskakuje ?? [:/] ;)
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
Jak na moje oko to musisz sobie stworzyc Label i nazwac go lblMain..
Ja tak zrobilem i wszystko dziala tak jak powinno :)
cytat:
A moze bys poda jaki blad wyskakuje ?? [:/] ;)
A moe bys sie nauczy czyta???
W przyjani zdarza sie falstart!!!