1 578
editací
Změny
Vytvorená stránka „Převede řetězec, ukončený nulovým znakem, na řetězec pascalského stylu. ;Deklarace function StrPas(Str: PChar): String; ;Režim :Windows, Reálný, Chráněn...“
Převede řetězec, ukončený nulovým znakem, na řetězec pascalského stylu.
;Deklarace
function StrPas(Str: PChar): String;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:[[StrPas]] převede Str na řetězec pascalského stylu.
;Viz také
:[[StrPCopy]]
Vzorový příklad
{StrPas.PAS}
{Vzorový příklad pro funkci StrPas.}
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
var
A: array[0..79] of Char;
S: string[79];
begin
Readln(A);
S := StrPas(A);
Writeln(S);
end.
[[Category:String]]
;Deklarace
function StrPas(Str: PChar): String;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:[[StrPas]] převede Str na řetězec pascalského stylu.
;Viz také
:[[StrPCopy]]
Vzorový příklad
{StrPas.PAS}
{Vzorový příklad pro funkci StrPas.}
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
var
A: array[0..79] of Char;
S: string[79];
begin
Readln(A);
S := StrPas(A);
Writeln(S);
end.
[[Category:String]]