paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 15:59:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed insertitem

Browse Source
This commit is contained in:
michael 1999-05-26 13:22:23 +00:00
parent e451211716
commit 37d5ce6110
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/inc/stringl.inc
View File

@ -232,7 +232,11 @@ Var P : Pchar;
begin
// Determine needed place
L:=0;
For I:=0 to count-1 do L:=L+Length(Strings[I])+NewLineSize;
For I:=0 to count-1 do
begin
L:=L+Length(Strings[I])+NewLineSize;
Writeln ('length needed : ',l);
end;
Setlength(Result,L);
P:=Pointer(Result);
For i:=0 To count-1 do
@ -559,7 +563,8 @@ begin
SetLength (S,P-PS);
System.Move (PS^,Pointer(S)^,P-PS);
If P^=#13 then P:=P+1;
If P^<>#0 then P:=P+1; // Point to character after #10(#13)
If P^<>#0 then
P:=P+1; // Point to character after #10(#13)
Result:=True;
end;
@ -645,7 +650,8 @@ begin
Changing;
If FCount=Fcapacity then Grow;
If Index<FCount then
System.Move (FList^[Index],FList^[Index+1],SizeOf(TStringItem));
System.Move (FList^[Index],FList^[Index+1],
(FCount-Index)*SizeOf(TStringItem));
Pointer(Flist^[Index].Fstring):=Nil; // Needed to initialize...
Flist^[Index].FString:=S;
Flist^[Index].Fobject:=Nil;
@ -938,7 +944,10 @@ end;
{
$Log$
Revision 1.3 1999-04-27 07:46:18 michael
Revision 1.4 1999-05-26 13:22:23 michael
+ Fixed insertitem
Revision 1.3 1999/04/27 07:46:18 michael
* Fixed bug that caused error in loadfromstream when last line in stream has not CRLF pair
Revision 1.2 1999/04/15 07:51:45 michael