alle .ini öffnen

[Basic-Master]

Zitat von Paul:

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...
      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');
      myini.Free;
    end;
  until FindNext(eRec) <> 0;
FindClose(eRec);
end;

bei mach was mit der ini sollte der code hin, wo du deine infos aus dem text rufst...

[edit=Sharky]Doppelposting auf wunsch gelöscht. Mfg, Sharky[/edit]