mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 07:47:58 +02:00
35 lines
540 B
ObjectPascal
35 lines
540 B
ObjectPascal
program project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Type
|
|
QStringListH = class(TObject) end;
|
|
|
|
function QStringList_size(handle: QStringListH): Integer; cdecl;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
procedure QStringList_at(handle: QStringListH; retval: PWideString; i: Integer); cdecl;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure Test;
|
|
Var
|
|
AQStringListH : QStringListH;
|
|
AWideString : WideString;
|
|
I : Integer;
|
|
begin
|
|
For I := 0 To QStringList_size(AQStringListH) - 1 do
|
|
QStringList_at(AQStringListH, @AWideString, i);
|
|
end;
|
|
|
|
Var
|
|
I : Integer;
|
|
begin
|
|
Test;
|
|
I := 0;
|
|
end.
|
|
|