1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
// test AnsiExtractQuotedStr
{$mode delphi}
Uses Strings,SysUtils;
var testok : boolean;
procedure dotest(str,val2,val3:string);
var p: pchar;
s2:string;
b: boolean;
begin
Write('testing: *',str,'*: ');
p:=pchar(Str);
b:=true;
s2:=AnsiExtractQuotedStr( p, '"' );
if s2<>val2 then
begin
write(' return value wrong:*',s2,'*');
b:=false;
end;
if ansistring(p)<>val3 then
begin
write(' left in str wrong:*',ansistring(p),'*');
b:=false;
end;
if b then writeln('ok') else begin testok:=false; writeln; end;
end;
var str : string;
p : pchar;
begin
testok:=true;
dotest('"test1""test2"','test1"test2','');
dotest('"test1" "test2"','test1',' "test2"');
dotest('"test1 test2"','test1 test2','');
dotest('"test1 test2','test1 test2','');
dotest('','','');
dotest('"','','');
dotest('""','','');
dotest('"x"','x',''); // one char only case.
if testok then halt(0) else halt(1);
end.
|
