guten abend leute...
hab mal wieder ne nachschicht vor mir, hoffentlich sind heute nacht genug online
!
nun zu meinem problem:
also ich habe 2 stringlist global definiert
Delphi-Quellcode:
var
sl: TStringList;
sl2: TStringList;
tform1.formcreate;
begin
sl:=TStringList.Create;
sl2:=TStringList.Create;
//file 1 von 49
sl.Add(ExtractFilePath(ParamStr(0)) + 'dir\file1.txt');
sl2.Add('ini.ReadString(''File1'', ''KEY'','''')');
//file 2 von 49
sl.Add(ExtractFilePath(ParamStr(0)) + 'dir\file2.txt');
sl2.Add('ini.ReadString(''File1'', ''KEY'','''')');
end;
tform.button1click;
var
i:integer;
begin
try
for i := 0 to sl.count -1 do
begin
sl.LoadFromFile(sl.Strings[i]));
edit1.text := sl.count;
sl.clear;
end;
end;
ich bekomme ne fehlermeldung, dass ich nen maximum wert überschritten habe ?
aber wieso ? habe schon sehr viel ausprobiert ....ca 8 stunden ....erbitte hilfe !
[edit=Sharky]Code-Tags durch Delphi-Tags ersetzt. Mfg, Sharky[/edit]