paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 06:28:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add static functions to check for the correct string helper

Browse Source 
git-svn-id: trunk@39398 -
This commit is contained in:
svenbarth 2018-07-06 15:57:03 +00:00
parent 0ea3570b96
commit 664724fb82
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/test/uthlp.pp
View File

@ -99,21 +99,25 @@ type
TShortStringHelper = record helper for ShortString
function Test: LongInt;
class function TestClass: LongInt; static;
constructor Create(aArg: ShortString);
end;
TAnsiStringHelper = record helper for AnsiString
function Test: LongInt;
class function TestClass: LongInt; static;
constructor Create(aArg: AnsiString);
end;
TWideStringHelper = record helper for WideString
function Test: LongInt;
class function TestClass: LongInt; static;
constructor Create(aArg: WideString);
end;
TUnicodeStringHelper = record helper for UnicodeString
function Test: LongInt;
class function TestClass: LongInt; static;
constructor Create(aArg: UnicodeString);
end;
@ -334,6 +338,11 @@ begin
Result := 4;
end;
class function TUnicodeStringHelper.TestClass: LongInt;
begin
Result := 4;
end;
constructor TUnicodeStringHelper.Create(aArg: UnicodeString);
begin
Self := aArg;
@ -346,6 +355,11 @@ begin
Result := 3;
end;
class function TWideStringHelper.TestClass: LongInt;
begin
Result := 3;
end;
constructor TWideStringHelper.Create(aArg: WideString);
begin
Self := aArg;
@ -358,6 +372,11 @@ begin
Result := 2;
end;
class function TAnsiStringHelper.TestClass: LongInt;
begin
Result := 2;
end;
constructor TAnsiStringHelper.Create(aArg: AnsiString);
begin
Self := aArg;
@ -370,6 +389,11 @@ begin
Result := 1;
end;
class function TShortStringHelper.TestClass: LongInt;
begin
Result := 1;
end;
constructor TShortStringHelper.Create(aArg: ShortString);
begin
Self := aArg;