problem mit langen strings

[arbu man]

Das kann man meines wissens nicht umgehen.

Aber kann einen eigenen type machen:

Delphi-Quellcode:

type
  LongString = record
    Len: integer;
    Content: array[1..1024] of char; // 1 KB
  end;

function strtolstr(s: string): LongString;
var
  i: byte;
begin
  result.Len:= length(s);
  for i:=1 to result.Len do begin
    result.Content[i]:=s[i];
  end;
end;

function lstrtostr(s: LongString): string;
  var
  i: integer;
begin
  for i:=1 to s.Len do begin
    result:= result + s.Content[i] ;
  end;
end;