PChar _nur_ 256 zeichen?

[sakura]

Hier die Lösung:

Delphi-Quellcode:

function meep(pc: PChar; len: Integer): Pchar;
var
  i: integer;
begin
  for i := 1 to len - 1 do
    if (pc[i] = #0) then
      pc[i] := '.';
>>  result := Pchar(string(pc) + #0);
end;

var
  i : integer;
  pc : Pchar;
begin
  pc := '';
  for i := 1 to 1111 do
>>    pc := PChar(string(pc) + '#');
  showmessage(inttostr(length(pc)));
  pc := meep(pc,length(pc));
  showmessage(inttostr(length(pc)));
end;

(siehe nach >>)
.......