INI laden funzt nicht

[Wadim]

hi,

kann mir einer sagen warum er das hier nicht lädt??

Delphi-Quellcode:

var a: integer;
begin
for a := 1 to 97 do 
  begin
    with  TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
      begin
        (findcomponent('form2.edit' + inttostr(a)) as tedit).Text := readstring ('Daten','Feld'+ inttostr (a),'');
        free;
      end;
  end;
end;

[Dax]

Du solltest vielleicht mal das "free" herausnehmen, wenn ich nicht irre, zerstört es dein Formular.

[Wadim]

Zitat von Dax:

Du solltest vielleicht mal das "free" herausnehmen, wenn ich nicht irre, zerstört es dein Formular.

hmm hab ich gemacht - funzt noch immer net

[Dax]

Noch eine Idde:

Delphi-Quellcode:

var a: integer;
i: TIniFile;
begin
  i := TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini'));
  for a := 1 to 97 do
    begin
      with  i do
        begin
          (findcomponent('form2.edit' + inttostr(a)) as tedit).Text := readstring ('Daten','Feld'+
           inttostr (a),'');
        end;
    end;
  i.free;
end;

[Taladan]

An welcher stelle genau hapert es den?

[Wadim]

Zitat von Dax:

Noch eine Idde:

Delphi-Quellcode:

var a: integer;
i: TIniFile;
begin
  i := TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini'));
  for a := 1 to 97 do
    begin
      with  i do
        begin
          (findcomponent('form2.edit' + inttostr(a)) as tedit).Text := readstring ('Daten','Feld'+
           inttostr (a),'');
        end;
    end;
  i.free;
end;

funzt leider auch net

@Taladan - ich weiß es nicht genau, er zeigt mir ja keine fehlermeldung an oder so, ladet einfach nicht die einträge

[Dax]

Vielleicht gibt es den Eintrag, den du suchst, gar nicht...

[Wadim]

Zitat von Dax:

Vielleicht gibt es den Eintrag, den du suchst, gar nicht...

doch doch fen gibt es, hab extra nochmal nachgeguckt und auch mal versucht das normal zu laden (ohne schleife) und das geht auch, aber bei soviele einträgen will net jedes einzele extra eingeben

[Taladan]

Probier es mal so

Delphi-Quellcode:

var test : string;
[...]
test := 'Feld'+inttostr(a);  //vermutlich liegt hier irgendwo dein fehler, in dem String, überprüfe einfach mal während der laufzeit, ob er den string auch richtig zusammenfügt, und ob es diesen wert auch in deiner Ini gibt.
(findcomponent('form2.edit' + inttostr(a)) as tedit).Text := i.readstring ('Daten', test, 'ERROR BY Programmierer');

[Delphi_Fanatic]

Er findet Deine ini-Datei nicht.

Setzt doch mal nur zum testen einen festen Pfad in Dein Tini.....Create ein, z.B. 'C:\myfile.ini' und
probier's dann nochmal.
Wenn's dann läuft, dann weißt Du, dass es nur daran lag, dass er Deine ini-Datei nicht gefunden hat.

Oder bau mal testweise das hier ein

showmessage (ExtractFilePath(ParamStr(0))+'Einstellungen.ini') ;

Dann siehst Du ja, ob da mit dem Pfad usw... alles in Ordnung ist.

Und überprüf' doch auch nochmal, ob Deine Einstellungen.ini überhaupt vorhanden ist.