String zu PAnsiChar

[ghost007]

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.