Examples
(Examples adapted from here)
set up
array[1..5] of string = ('a','b','c','d','e');
code
procedure TForm1.Button1Click(Sender: TObject);
begin
// Run all tests
LoadTests(array[1..5]);
end;
procedure LoadTests(const AString: string);
const
pattern = '@[%s]@';
order = [dtPeriodOrder];
units = [dtUnitNames];
var
col: IColumn;
row: ITableCell;
q, p: Integer;
begin
with TTest.Create(nil) do
try
// Create database table (if not already)
Prepare;
// check if we have any data
CheckForData(q, p);
// create a text file from the variables
Q := FindPlace(pattern, AString);
if (p > 0) then begin
for row := 0 to q - 1 do
WriteToFile(Order[row], row);
end;
Free;
finally
Close;
end;
end;
// Setup data
procedure WriteToFile(const DtStr: string; const RowNum: Integer);
var
F: TextFile;
begin
F := TFile.Create(nil);
F.Free;
F 01e38acffe
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe5 serial number
timeseparator delphi xe
Related links:
コメント