blob: 685ea4b29e2a0026577a3b17d8d683a440800d0e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example51;
{ This program demonstrates the AnsiQuotedStr function }
Uses sysutils;
Var
S : AnsiString;
P : PChar;
Begin
S:='He said "Hello" and walked on';
P:=Pchar(S);
S:=AnsiQuotedStr(P,'"');
Writeln (S);
P:=Pchar(S);
Writeln(AnsiExtractQuotedStr(P,'"'));
End.
|
