TStrings maximale Länge

[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.

[Tommy99]

Ok, das wars,...

Mit TexPad habe ich die #0 gefunden,...

Danke für Eure Hilfe !!!!

[Sir Rufo]

Zitat von Tommy99:

Ok, das wars,...

Mit TexPad habe ich die #0 gefunden,...

Danke für Eure Hilfe !!!!

Dass man aber auch immer erst mit dem großen Knüppel drohen muss

[Popov]

Shit, und ich hab noch etwas auf die Schnelle geprogt. Wir sind hier in einem Programmierforum, ist doch lächerlich, dass wir fremde Programme für sowas brauchen:

Delphi-Quellcode:

function LoadStringFromFile(sInFile: String; var sFileString: String): Boolean;
var
  FileStream: TFileStream;
begin
  Result := False;
  if not FileExists(sInFile) then Exit;
  FileStream := TFileStream.Create(sInFile, fmOpenRead);
  try
    if FileStream.Size <> 0 then begin
      SetLength(sFileString, FileStream.Size);
      FileStream.Read(sFileString[1], FileStream.Size);
      Result := True;
    end;
  finally FileStream.Free end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  SuchZeichen = #0;
var
  s: String;
  k: Integer;
begin
  with OpenDialog1 do
  begin
    if Execute then
    begin
      if not LoadStringFromFile(FileName, s) then
      begin
        MessageDlg('Keine Datei geladen', mtError, [mbOK], 0);
        Exit;
      end;

      k := 0;
      while Pos(SuchZeichen, s) > 0 do
      begin
        s[Pos(SuchZeichen, s)] := '~';
        Inc(k);
      end;

      ShowMessage(Format('Zeichen "%s" %d mal gefunden.', [SuchZeichen, k]));
    end;
  end;
end;

Zwar zusammengebastelt, aber wer behauptet, dass es immer ein Programm sein muß.

[Bernhard Geyer]

Zitat von Popov:

Shit, und ich hab noch etwas auf die Schnelle geprogt. Wir sind hier in einem Programmierforum, ist doch lächerlich, dass wir fremde Programme für sowas brauchen:
...
Zwar zusammengebastelt, aber wer behauptet, dass es immer ein Programm sein muß.

Gut nur das dein Programm bei den letzten 5 Delphi-Versionen nicht korrekt funktioniert.

[Popov]

Wieso das?

Edit:

Achso

[Bernhard Geyer]

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

Solange du Texteditoren verwendest wirst du auch keine #0-Einträge finden können da diese Texteditoren diese Suchfunktionalität gar nicht bieten.
Du brauchst hier einen Hex-Editor und musst je nach codiertung der Textdatei nach $00 bzw. $0000 suchen.

[Sir Rufo]

Zitat von Bernhard Geyer:

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

Solange du Texteditoren verwendest wirst du auch keine #0-Einträge finden können da diese Texteditoren diese Suchfunktionalität gar nicht bieten.
Du brauchst hier einen Hex-Editor und musst je nach codiertung der Textdatei nach $00 bzw. $0000 suchen.

Oder auch Notepad++, der kann auch optional die normal nicht sichtbaren Zeichen hervorheben.
Zudem wird die Datei auch dahingehend analysiert (soweit möglich) um welche Codierung es sich handelt.