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

zusammenfalten · markieren

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]

Zitat von agm65:

.
.

markieren

Code:

  for i := 0  to sl.count -1 do
     begin
     sl.LoadFromFile(sl.Strings[i]));
.
end;

Du darfst nicht in einer Schleife welche die Items deiner StringList sl durchläuft diese verändern.
Durch das sl.LoadFromFile ändert sich ja die Anzahl der "Zeilen" in der StringListe!

also erstelle ich für diese procedure einen neue stringliste ?

markieren

Code:

tform.button1click;
var
i:integer;
sl3: TStringList;
begin
sl3.create;
try
  for i := 0  to sl.count -1 do
     begin
     sl3.LoadFromFile(sl.Strings[i]));
     edit1.text := sl.count;
     sl.clear;
     end;
end;

macht leider auch fehler !

markieren

Delphi-Quellcode:

for i := 0 to sl.count -1 do
     begin
     sl.LoadFromFile(sl.Strings[i]));
     edit1.text := sl.count;
     sl.clear;
     end;

Hier fällt mir außerdem auf, dass am Ende jedes Schleifendurchlauf die StringListe geleert wird, wodurch beim nächsten Aufurf nicht mehr von sl.Strings[i] gelesen werden kann. Logischerweise

Nachtrag: Warum speicherst du nicht Sl.Count - 1 in einer Variableß

//edit: Edit1.Text := sl.Count funktioniert auch nicht, da du ja einen Integerwert in einen String schreiben willst. Wenn du das machen willst, musst du zuvor mit IntToStr Sl.Count umwandeln (wenn du wirklich die Zahl reinschreiben willst).

Zitat von agm65:

also erstelle ich für diese procedure einen neue stringliste ?

Was möchtest Du denn machen? So wie der Code aussieht hast Du in einer StringListe Dateinamen und möchtest jetzt wissen wie viele Zeilen jede dieser Dateien hat?

hi,

also ich stimme erstens mal Sharky zu.
aber noch was:

Zitat:

edit1.text := sl.count;

das geht doch gar nicht!
richtig wäre es so:
edit1.text := inttostr(sl.count); erklär mal dein vorhaben etwas genauer...

P.S. eventuell musst du eine dritte stringlist verwenden, um die dateinamen zu speichern.

mit einer dritten stringlist müsste das etwa so aussehen:

markieren

Delphi-Quellcode:

s3.strings := s1.strings;
for i := 0 to s3.count -1 do
     begin
     sl.LoadFromFile(s3.Strings[i]));
     edit1.text := sl.count;
     sl.clear;
     end;

genau wartet mal ich behebe die dummen fehler !

Zitat von urbanbruhin:

mit einer dritten stringlist müsste das etwa so aussehen:

markieren

Delphi-Quellcode:

s3.strings := s1.strings;
for i := 0 to s3.count -1 do
     begin
     sl.LoadFromFile(s3.Strings[i]));
     edit1.text := sl.count;
     sl.clear;
     end;

Warum denn so?

Da wird doch nur unnötig Speicher verbraucht, weil eine Stringliste komplett kopiert wird. Man könnte ja gleich die Daten aus s1 in s3 speichern. So, wie es agm65 auch im Beispiel gepostet hat.


PS: Doppelposts sind ja nicht nötig, oder? Du kannst auch deine Beiträge editieren

markieren

Code:

tform.button1click;
var
i:integer;
sl3: TStringList;
begin
sl3.create;
try
  for i := 0  to sl.count -1 do
     begin
     sl3.LoadFromFile(sl.Strings[i]));
     edit1.text := inttostr(sl3.count);
     sl3.clear;
     end;
end;

das macht auch fehler, exception zugriffs verletzung