//Copies an AnsiString (long string) to a null-terminated string. // //function StrPCopy(Dest: PChar; const Source: string): PChar;uses SysUtils; var A: array[0..79] of Char; S: String; begin S := 'Honk if you know Blaise.'; StrPCopy(A, S); Canvas.TextOut(10, 10, string(A)); end;
//
//function StrPCopy(Dest: PChar; const Source: string): PChar;uses SysUtils;
var A: array[0..79] of Char;
S: String;
begin
S := 'Honk if you know Blaise.';
StrPCopy(A, S);
Canvas.TextOut(10, 10, string(A));
end;