mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-08 19:32:39 +02:00
14 lines
259 B
ObjectPascal
14 lines
259 B
ObjectPascal
Program Example51;
|
|
|
|
{ This program demonstrates the AnsiQuotedStr function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var S : AnsiString;
|
|
|
|
Begin
|
|
S:='He said "Hello" and walked on';
|
|
S:=AnsiQuotedStr(Pchar(S),'"');
|
|
Writeln (S);
|
|
Writeln(AnsiExtractQuotedStr(Pchar(S),'"'));
|
|
End. |