String in Char umwandeln

[DeddyH]

Mit StrPCopy sollte es gehen. Kleines Beispiel:

Delphi-Quellcode:

type TMyRec = packed record
  sTest: packed array[0..Pred(260)] of Char;
end;

procedure TForm1.FormCreate(Sender: TObject);
var MyRec: TMyRec;
begin
  FillChar(MyRec, SizeOf(MyRec),#0);
  StrPCopy(MyRec.sTest,'Tach auch');
  ShowMessage(MyRec.sTest);
end;