t_id
825
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
522894473 | 947769 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode delphi}{$endif} uses classes; var StrList : TStringList; x : Integer; Para : string; begin Para:='Hello,"This","i"s",a,"Test for"," TStringList"'; StrList := TStringList.Create; writeln('Parameter: '+Para); StrList.CommaText := Para; writeln('Strings:'); for x := 0 to StrList.Count-1 do writeln(StrList.Strings[x]); writeln('CommaText: '+StrList.CommaText); if StrList.CommaText<>'Hello,This,i,"s""",a,"Test for"," TStringList"' then begin writeln('ERROR!'); halt(1); end; StrList.Free; end.