21 lines
402 B
ObjectPascal
21 lines
402 B
ObjectPascal
function Query(Buffer: PChar; var Size: Int64): LongBool;
|
|
const
|
|
Text = 'Hello World!';
|
|
begin
|
|
If not Assigned(Buffer) Then
|
|
begin
|
|
Size := 0;
|
|
Result := False;
|
|
Exit;
|
|
end;
|
|
If Size < Length(Text) Then
|
|
begin
|
|
Size := 0;
|
|
Result := False;
|
|
Exit;
|
|
end;
|
|
|
|
Size := Length(Text);
|
|
Move(Text[1], Buffer^, Size);
|
|
Result := True;
|
|
end;
|