alle .ini öffnen

[Paul]

hi,

hab da ein kleines problem
mit welchem befehl kann ich alle ini öffnen und nicht nur die die ich angegeben hab.

MyIni := TiniFile.Create((ExtractFilePath(ParamStr(0)) + 'files2.ini')); // es sollen alle *.ini geöffnet werden mfg Paul

[Luckie]

Such sie dir mit FindFirst und FindNext. Code dazu gibt es in der Code-Lib.

[Basic-Master]

Delphi-Quellcode:

var eIni:TIniFile;
    eRec:TSearchRec;
begin
if FindFirst(ExtractFilePath(Application.ExeName) + '*.ini', faanyfile, eRec) = 0 then begin
  repeat;
    if (eRec.Name <> '.') and (eRec.Name <> '..') then begin
      eIni := TIniFile.Create(ExtractFilePath(Application.ExeName) + eRec.Name);
      // mach was mit ini...
      eIni.Free;
    end;
  until FindNext(eRec) <> 0;
FindClose(eRec);
end;

suchtest du sowas?

[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...
      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

[Christian Seehase]

Moin Paul,

Zitat von Paul:

kann es sein das da noch irgendwas fehlt ???

schau Dir noch mal genau die Struktur an.

Zu dem Zeitpunkt zu dem Du die Edit Felder füllen willst, hast Du myIni schon längst wieder freigegeben.

[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]

[Paul]

geilo besten dank

mfg paul