ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/TestManager.pas

Comparing ibx/trunk/fbintf/testsuite/TestManager.pas (file contents):
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC vs.
Revision 309 by tony, Tue Jul 21 08:00:42 2020 UTC

#	Line 225 | Line 225 | begin
225		begin
226		write(OutFile,aValue[i].Name,' = ');
227		PrintHexString(s);
228	<	writeln(OutFile,' (Charset Id = ',aValue[i].GetCharSetID, ' Codepage = ',StringCodePage(s),')');
228	>	writeln(OutFile,' (Charset Id = ',aValue[i].GetCharSetID, ' Codepage = ',StringCodePage(s),
229	>	' Byte Length = ',Length(aValue[i].AsString),')');
230		end
231		else
232		if aValue[i].GetCharSetID > 0 then
233	<	writeln(OutFile,aValue[i].Name,' = ',s,' (Charset Id = ',aValue[i].GetCharSetID, ' Codepage = ',StringCodePage(s),')')
233	>	writeln(OutFile,aValue[i].Name,' = ',s,' (Charset Id = ',aValue[i].GetCharSetID, ' Codepage = ',StringCodePage(s),
234	>	' Byte Length = ',Length(aValue[i].AsString), ')')
235		else
236		writeln(OutFile,aValue[i].Name,' = ',s);
237		end;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines