mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:28:15 +02:00
23 lines
250 B
ObjectPascal
23 lines
250 B
ObjectPascal
{$mode delphi}
|
|
|
|
const
|
|
CSV_Internal = 10;
|
|
|
|
type
|
|
PTypeRec = ^TTypeRec;
|
|
TTypeRec = record
|
|
atypeid: Word;
|
|
end;
|
|
|
|
|
|
function ChangeType(newtype: PTypeRec): Pointer;
|
|
|
|
begin
|
|
if NewType.AtypeID = CSV_Internal then
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
end.
|