TStrings maximale Länge

[Tommy99]

Hallo,

versuche einen Dateiinhalt in einen TStrings zu laden (TStringTest.Add(Dateiinhalt))

Die entsprechende Zeilenlänge ist auf 35 Zeichen begrenzt.

Die Zeilen aus der Datei werden nur bis maximal 153 Zeilen an den TStrings angefügt.

Die restlichen Zeilen werden ignoriert. Kann mir jemand weiterhelfen, woher dieses Problem kommt, bzw., ob ich es umgehen kann.

Danke und Grüße

[DeddyH]

Ist evtl. ein #0 in der Datei enthalten?

[Tommy99]

Nein, es handelt sich um einen reinen Textfile (Namen von Banken in Deutschland)

[Sir Rufo]

Zitat:

Zitat von Tommy99 (Beitrag 1191652)

Nein, es handelt sich um einen reinen Textfile (Namen von Banken in Deutschland)

Das sagt nichts darüber aus, ob du dich davon überzeugt hast, dass kein #0 in der Datei vorkommt.
Oder ist das bei der Erstellung von einer Banknamen Datei per se ausgeschlossen?
Ich denke das BS/OS kann das nicht erkennen :mrgreen:

[mkinzler]

Auch bei #D und #A kann es Probleme geben

[DeddyH]

Zitat:

Zitat von mkinzler (Beitrag 1191657)

Auch bei #D und #A kann es Probleme geben

Wird dann nicht nur ein unerwünschter Zeilenumbruch eingefügt? Es fällt mir ein wenig schwer zu glauben, dass das mit einem Stringende verwechselt werden könnte, habe es aber zugegebenermaßen nicht ausprobiert.

[Popov]

@Tommy99

Test das mal:

Delphi-Quellcode:

var
  s: String;
begin
  s := 'Hallo Welt';
  s[6] := #0;

  ShowMessage('Text von s: "' + s + '"'); //hier wird sogar das zweite Anführungszeichen geschluckt
  ShowMessage('Länge s: ' + IntToStr(Length(s))); //die Länge ist aber korrekt (10)

  Caption := s; //mal an die Titelleiste übergeben
  ShowMessage('Länge Caption: ' + IntToStr(Length(Caption))); //die Länge ist kürzer (5)
end;

Einige Programme haben damit kein Problem, da sie die Nullen im Text ignorieren. Andere dagegen schlucken alles dahinter.

[Tommy99]

ich glaube nicht, dass es mit dem #0 zusammenhängt.

Es handelt sich hierbei um eine TXT Datei und über suchen kann ich keinen #0 Eintrag finden.

Zum Testen habe ich den Inhalt je Zeile verkürzt:

TStringTest.Add(Copy(Dateiinhalt,1,10))

Dann schafft er ein paar Zeilen mehr in die Variable aufzunehmen, bricht dann aber auch ab.

[Sir Rufo]

Wenn die Datei nicht zu geheim ist, dann packe die in ein Zip-File und häng die hier mal dran.
(evtl. ist es auch ein Codepage/Encoding Problem)

[Popov]

kennst du das Programm TextPad? Gibt es auch als Shareware. Ansonsten tut auch jeder Hexeditor. Zumindest kann man mit TextPad auch binär laden und da genau prüfen ob eine Null da ist. Ich glaube nicht, dass ein normaler Editor eine Null findet. Dann weißt due es genau.

Übrigens, was passiert wenn du es in ein Memo lädst? Mach aber vorher WordWrap auf False.