StrPCopy

Z Delphi & Pascal (česká wiki)
Verze z 8. 10. 2012, 18:02, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: unit string)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

Zkopíruje řetězec pascalského stylu do řetězce, ukončeného nulovým znakem.

Deklarace
function StrPCopy(Dest: PChar; Source: String): PChar;
Režim
Windows, Reálný, Chráněný
Poznámky
StrPCopy neprovádí žádnou kontrolu délky.
Musíte zajistit, aby buffer, daný parametrem Dest, měl místo pro alespoň Length(Source)+1 znaků.
Viz také
StrCopy


Vzorový příklad

{StrPCopy.PAS}
{Vzorový příklad pro funkci StrPCopy.}
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
var
  A: array[0..79] of Char;
  S: string[79];
begin
  Readln(S);
  StrPCopy(A, S);
  Writeln(A);
end.