Fájl létezik-e?

Ez a téma lezárásra került a moderátor által. A lezárás oka: 1 t�ma - 1 k�rd�s
Fájl létezik-e?
2008-06-20T20:52:10+02:00
2008-06-20T22:06:17+02:00
2022-07-26T17:21:25+02:00
parrotclub
Helló!
Van egy ilyen programom:
unit Unit1; interface uses Windows,XPMAN, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; Timer4: TTimer; Timer5: TTimer; Timer6: TTimer; SaveDialog1: TSaveDialog; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure Timer3Timer(Sender: TObject); procedure Timer4Timer(Sender: TObject); procedure Timer5Timer(Sender: TObject); procedure Timer6Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin If edit1.text = edit2.text then begin memo1.lines.SaveToFile('C:\Windows\File.txt'); Showmessage('Köszönöm,hogy regisztráltad a programot!'); Form2.Show; Form1.Hide; end else begin Showmessage('Sajnos nem megfelelő a kód!'); end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Button2.Enabled:=(False); Button2.Caption:=('Később... 5'); Timer1.Enabled:=(FAlse); end; procedure TForm1.Timer2Timer(Sender: TObject); begin Button2.Caption:=('Később... 4'); Timer2.Enabled:=(FAlse); end; procedure TForm1.Timer3Timer(Sender: TObject); begin Button2.Caption:=('Később... 3'); Timer3.Enabled:=(FAlse); end; procedure TForm1.Timer4Timer(Sender: TObject); begin Button2.Caption:=('Később... 2'); Timer4.Enabled:=(FAlse); end; procedure TForm1.Timer5Timer(Sender: TObject); begin Button2.Caption:=('Később... 1'); Timer5.Enabled:=(FAlse); end; procedure TForm1.Timer6Timer(Sender: TObject); begin Button2.Enabled:=(True); end; procedure TForm1.FormCreate(Sender: TObject); begin if fileexists('C:/Windows/File.txt') then form2.Show Else form1.Show; end; end.
Az a gond,hogy a FormCreate -be írt kód nem igazán akar működni.Az a lényeg,hogy ha létezik a fájl,akkor a form2-t jelenitse meg.Ha nem létezik,akkor a form1-et.De erre ezt az ablakot kapom:
http://img157.imageshack.us/img157/2743/screenhunter01jun202045sy7.jpg
Az lehet a baj,hogy nem találja a fájlt? Biztos itt a hiba ,mert az OnCreate -be irt kód nélkül működik rendesen.
Mutasd a teljes hozzászólást!
Ok, ne kínlódjunk tovább, azt hittem rá fogsz jönni. Tedd át a Form2.Create-be, vagy tedd át a Form1.Activate-be, de utóbbi esetben Hide-dal tüntesd el a Form1-et.
Mutasd a teljes hozzászólást!

Ez a téma lezárásra került a moderátor által. A lezárás oka: 1 t�ma - 1 k�rd�s
abcd