Servus, zunächst einmal kann das ja gar nich funktionieren, da ein PAnsiChar auf einen Character zeigt, also nur ein Zeichen.
Hab dein Codeschnipsel mal etwas abgewandelt:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
s: TStrings;
i:integer;
x: array of PAnsiString; //hier
begin
s:= TStringList.Create;
s.Add('#0#');
s.Add('#1#');
s.Add('#2#');
SetLength(x, 3);
for i:=0 to 2 do x[i]:= PAnsiString(s[i]); //hier
for i:=0 to 2 do showmessage(AnsiString(x[i])); //hier
Finalize(x);
s.Free;
end;
Die abgeänderten Stellen sind markiert.