aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Wandelt einen Pascal-String in einen PChar (=nullterminierter String) um.

Deklaration

function StrPCopy(ziel:pchar;quelle:string);

Beispiel

uses strings;
var s:string;
     p: array[0..12] of char;

begin
writeln('Ihr Vorname ?');
readln(s);
strpcopy(p,s);
writeln(strupper(p));
writeln(strlower(p));
readln;
end.

---