große Textdateien in Stringlist laden

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, elevance.

Um die in einer Binärdatei vorhandenen Strings zu extrahieren kannst du etwa so vorgehen:

Delphi-Quellcode:

program Vis;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes;

const
  MIN_LENGTH = 3;

var
  c: Char;
  s: string;
  stdIn: file of Char;
  visibleChars: set of Char;

begin
  AssignFile(stdIn, ParamStr(1));
  Reset(stdIn);
  AssignFile(output, ParamStr(2));
  Rewrite(output);
  visibleChars := ['0'..'9', ' ', 'A'..'Z', 'a'..'z'];
  s := '';
  while not Eof(stdIn) do
  begin
    Read(stdIn, c);
    if c in visibleChars then
      s := s + c else
    if Length(s) >= MIN_LENGTH then
    begin
      WriteLn(s);
      s := '';
    end;
  end;
  CloseFile(output);
  CloseFile(stdIn);
end.

Das sollte dir auch bei Sierra's Outpost helfen.

Freundliche Grüße