Kann Datei nicht öffnen

[EWeiss]

Zitat von Luckie:

Das einzig ungewöhnliche, was mir auffällt ist das tmpStr := nil; . Warum setzt du den lokalen String auf nil?

Ist in einer Textdatei eventuell ein Fehler drin? Was macht Split? Eventuell kracht es da. Tut mir Leid ich kann auch nur raten im Moment.

Ich kann ihn auch einfach auf SetLength(tmpStr, 0) setzen.
Aber der Fehler tritt bei Free auf.
Dateien werden alle ordnungsgemäß addiert mit der Spilt funktion.

Delphi-Quellcode:

function Split(const Source, Delimiter: string): TSplitStrArray;
var
  spCount:  integer;
  spPos:    integer;
  spLength: integer;
  sTemp:    string;
  aSplit:   TSplitStrArray;

begin
  sTemp    := Source;
  spCount  := 0;
  spLength := Length(Delimiter) - 1;
  repeat
    spPos := Pos(Delimiter, sTemp);
    if spPos = 0 then
      break
    else
    begin
      Inc(spCount);
      SetLength(aSplit, spCount);
      aSplit[spCount - 1] := Copy(sTemp, 1, spPos - 1);
      Delete(sTemp, 1, spPos + spLength);
    end;

  until False;
  if Length(sTemp) > 0 then
  begin
    Inc(spCount);
    SetLength(aSplit, spCount);
    aSplit[spCount - 1] := sTemp;
  end;

  Result := aSplit;

end;

gruss

[Luckie]

Guck dir meinen letzten Beitrag noch mal an. Ich habe noch was ergänzt. Aber warum machst du das?

[EWeiss]

Zitat von Luckie:

Guck dir meinen letzten Beitrag noch mal an. Ich habe noch was ergänzt. Aber warum machst du das?

Zitat:

Ein Moment: SetLength(DRArrayList, InstList.Count -1); Das Array ist zwar nullbasierend, aber Count gibt die Anzahl der Elemente an. Du hast ein Element zu wenig. Und in einer Datei hast du eventuell am Ende noch eine Leerzeile, deswegen kracht es bei dieser nicht. Du hast die Elemente 0 - 9 Das sind 10 Elemente und Count sollte dir auch 10 zurückgeben.

Boah ja ... Klasse das du das gefunden hast.
Ist mir jetzt zu später stunde nicht aufgefallen.

SetLength(InstArrayList, InstList.Count); Habs jetzt berichtig und jetzt funktioniert es.

Danke

gruss

[Luckie]

je später der Abend, desto schöner die Bugs.

[EWeiss]

Zitat von Luckie:

je später der Abend, desto schöner die Bugs.

LOL hast recht manchmal sieht man vor lauter Bäumen den Wald nicht mehr.

gruss

[Luckie]

Manchmal hilft es auch einfach mal schlafen zu gehen. und sich das am nächsten Morgen noch mal ausgeschlafen anzugucken.

[EWeiss]

Zitat von Luckie:

Manchmal hilft es auch einfach mal schlafen zu gehen. und sich das am nächsten Morgen noch mal ausgeschlafen anzugucken.

Das ist wohl war.
Bei mir ist nur das problem ich habe Angst das mir die Zeit davon läuft.
Stupid ja ich weiss aber bin nun mal so.

gruss