david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
16 lines
188 B
Plaintext
16 lines
188 B
Plaintext
Program IFSTest;
|
|
var
|
|
a,b :string;
|
|
Begin
|
|
a := 'test: ';
|
|
b := ImportTest('1', 2, 3, 4, a);
|
|
writeln(b);
|
|
writeln(a);
|
|
{
|
|
Output should be:
|
|
|
|
1 2 3 4 - OK!
|
|
1 2 3 4 - OK! - OK2!
|
|
|
|
}
|
|
End. |