paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* The test was wrong, the values to insert into the collections are pstrings, not pchar.

Browse Source
This commit is contained in:
carl 2002-11-10 22:54:37 +00:00
parent cc68571e4d
commit 82b456f4f8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docs/objectex/ex39.pp
View File

@ -17,10 +17,9 @@ begin
begin
Str(Random(100),S);
S:='String with value '+S;
P:=StrAlloc(Length(S)+1);
C^.Insert(StrPCopy(P,S));
C^.Insert(NewStr(S));
end;
For I:=0 to 99 do
Writeln (I:2,': ',PChar(C^.At(i)));
Writeln (I:2,': ',PString(C^.At(i))^ );
Dispose(C,Done);
end.