nein leider macht er noch eine fehlermeldung
Delphi-Quellcode:
if FindFirst(ExtractFilePath(Application.ExeName) + '
*.TDP', faanyfile, eRec) = 0
then begin
repeat;
if (eRec.
Name <> '
.')
and (eRec.
Name <> '
..')
then begin
AssignFile(f,ExtractFilePath(Application.ExeName) + eRec.
Name);
Reset(f);
repeat
ReadLn(f, S1);
S2:= Decode64(S1);
until EoF(f);
CloseFile(f);
Edit1.Text := myini.ReadString('
FTP','
IP','
N/A');
// <--- hier bleibt er stehen, ick denk mal weil er nicht weiß was er mit myini machen soll
Edit2.Text := myini.ReadString('
FTP','
user','
N/A');
Edit3.Text := myini.ReadString('
FTP','
pass','
N/A');
Edit4.Text := myini.ReadString('
FTP','
Path','
N/A');
Edit5.Text := myini.ReadString('
FTP','
Port','
N/A');
end;
until FindNext(eRec) <> 0;
FindClose(eRec);
end;
mfg