INI laden funzt nicht

[Wadim]

Zitat von 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.

hmm -also hab jetzt alles ausprobiert mit pfad eingeben und prüfen.

die ini datei gibt es, die hab ich ja selbst erstellt und liegt im selben ordner wie die .exe -einträge sind auch 100% vorhanden.

wie gesagt wenn ich das einzelnt eingeben ohne schleife dann ladet er das - ich glaub das geht garnicht mir schleife laden

@Taladan - also er ladet das ERROR.... nicht??

ich hab da eine vermutung, und zwar glaub ich das er gernicht in den (findcomponent.... befehl reinkommt, hab mal dort was eingegeben wo normalerweisen ein error kommen müste - also anstatt mit
(findcomponent('form2.edit' ... hab ich mal (findcomponent('form5.edit'... eingegeben das aber garnicht exestiert, hat aber garnichts gesagt also ich den button geklickt hab :-/

[Markus K.]

Hallo Wadim,
hier ist nochmal ein Vorschlag von mir.

Delphi-Quellcode:

var a: integer;
    i: TIniFile;
    Str: String;
begin
     i := TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini'));
     for a := 1 to 97 do
     begin
     Str:='Feld'+IntToStr(a);
     TEdit(Form2.FindComponent('Edit'+IntToStr(a))).Text:=i.ReadString('Daten',Str,'');
     end;
end;

Dein Problem ist glaub ich, das du die Edit's auf dem falschen Formular gesucht hast (nach dem Schema Form1.Form2.Edit).
So müsste es eigentlich gehen.

Tschüß Markus

[Wadim]

Zitat von Markus K.:

Hallo Wadim,
hier ist nochmal ein Vorschlag von mir.

Delphi-Quellcode:

var a: integer;
    i: TIniFile;
    Str: String;
begin
     i := TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini'));
     for a := 1 to 97 do
     begin
     Str:='Feld'+IntToStr(a);
     TEdit(Form2.FindComponent('Edit'+IntToStr(a))).Text:=i.ReadString('Daten',Str,'');
     end;
end;

Dein Problem ist glaub ich, das du die Edit's auf dem falschen Formular gesucht hast (nach dem Schema Form1.Form2.Edit).
So müsste es eigentlich gehen.

Tschüß Markus

- das war es

SUPER DANKE

mfg wadim