Hi,
ich weiß ja nicht genau wie ich auslesen soll
deshalb frag ich ja
hier mal mein ideenansatz
Delphi-Quellcode:
if FindFirst(ExtractFilePath(Application.ExeName) + '
*.ini', 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');
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 Paul