thx
kann es sein das da noch irgendwas fehlt ???
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
myIni:TIniFile;
eRec:TSearchRec;
begin
If OpenDialog1.execute
then
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
//Edit6.Clear;
if FindFirst(ExtractFilePath(Application.ExeName) + '
*.ini', faanyfile, eRec) = 0
then begin
repeat;
if (eRec.
Name <> '
.')
and (eRec.
Name <> '
..')
then begin
myini := TIniFile.Create(ExtractFilePath(Application.ExeName) + eRec.
Name);
// mach was mit ini...
myini.Free;
end;
until FindNext(eRec) <> 0;
FindClose(eRec);
end;
Edit1.Text := myini.ReadString('
FTP','
IP','
N/A');
//zeile 126
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');
[Warning] Unit1.pas(126): Variable 'myIni' might not have been initialized
mfg