paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

initial implementation

Browse Source
This commit is contained in:
michael 1999-02-23 21:59:09 +00:00
parent 2541a27a5a
commit c3137d9426
1 changed files with 76 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
fcl/tests/stringl.pp Normal file
View File

@ -0,0 +1,76 @@
program teststrings;
Uses classes,sysutils;
Procedure DoRef (P : Pointer);
Type PLongint = ^Longint;
begin
If P=Nil then
Writeln ('(Ref : Empty string)')
else
{$ifdef fpc}
Writeln (' (Ref: ',Plongint(Longint(P)-4)^,',Len: ',PLongint(Longint(P)-8)^,')');
{$else}
Writeln (' (Ref: ',Plongint(Longint(P)-8)^,',Len: ',PLongint(Longint(P)-4)^,')');
{$endif}
end;
Procedure test;
var S,TS : ANsiSTring;
T : TStringList;
I,J : Longint;
A : String[255];
begin
S:='An Ansi string ';
T:=TStringList.create;
Writeln ('Count : ',T.Count,' Capacity : ',T.Capacity);
For I:=1 to 10 do
begin
str (I,TS);
T.Add(S+TS);
end;
Writeln ('Count : ',T.Count,' Capacity : ',T.Capacity);
J:=T.Count-1;
Writeln ('J : ',J);
For I:=0 to J do
Writeln(I,'/',J,' : ',T.Strings[I]);
T.SaveToFile ('strings.dat');
T.Clear;
T.LoadFromFile('strings.dat');
J:=T.Count-1;
Writeln ('Count = ',J);
For I:=0 to J do
Writeln(I,'/',J,' : ',T.Strings[I]);
Writeln ('IndexOf(''An Ansi string 6'') = ',T.IndexOf('An Ansi string 6'));
Writeln ('IndexOf(''An Ansi string 11'') = ',T.IndexOf('An Ansi string 11'));
T.Clear;
For I:=1 to 10 do
T.Values['Var'+IntToStr(I)]:='Val'+IntToSTr(I);
J:=T.Count-1;
Writeln ('J = ',J);
For I:=0 to J do
Writeln(I,'/',J,' : ',T.Strings[I]);
Writeln ('Indexof(''Var6'') = ',T.IndexOfName('Var6'));
Writeln ('Indexof(''Var13'') = ',T.IndexOfName('Var13'));
Writeln ('Value[''Var6''] = ',T.Values['Var6']);
Writeln ('Value[''Var13''] = ',T.Values['Var13']);
Try
Writeln ('String 100 = ');
S:=T.Strings[100];
except
On e: exception do Writeln ('Caught exception : ',e.message);
end;
T.Free;
end;
Var Data : longint;
begin
Data:=memavail;
test;
Writeln ('Lost ',Data-Memavail);
end.