paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 08:09:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* s[0] ->setlength(s, first round, to ease experimentation with ansistrings

Browse Source 
git-svn-id: trunk@35970 -
This commit is contained in:
marco 2017-04-27 16:03:51 +00:00
parent ff1ee6836d
commit 75eea3c220
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/whtmlhlp.pas
View File

@ -547,7 +547,7 @@ end;
function CharStr(C: char; Count: byte): string;
var S: string;
begin
S[0]:=chr(Count);
setlength(s,count);
if Count>0 then FillChar(S[1],Count,C);
CharStr:=S;
end;

20
ide/wutils.pas
View File

@ -269,7 +269,7 @@ procedure ReadlnFromStream(Stream: PStream; var S:string;var linecomplete,hasCR
linecomplete:=true;
if (c=#10) then
hasCR:=true;
s[0]:=chr(i);
setlength(s,i);
end;
procedure ReadlnFromFile(var f : file; var S:string;
@ -324,13 +324,13 @@ procedure ReadlnFromFile(var f : file; var S:string;
(LastSpacePos>1) then
begin
{$ifdef DEBUG}
s[0]:=chr(i);
setlength(s,i);
filename:=strpas(@(filerec(f).Name));
DebugMessage(filename,'s='+s,1,1);
{$endif DEBUG}
i:=LastSpacePos;
{$ifdef DEBUG}
s[0]:=chr(i);
setlength(s,i);
DebugMessage(filename,'reduced to '+s,1,1);
{$endif DEBUG}
system.seek(f,LastSpaceFilePos);
@ -341,13 +341,13 @@ procedure ReadlnFromFile(var f : file; var S:string;
linecomplete:=true;
if (c=#10) then
hasCR:=true;
s[0]:=chr(i);
setlength(s,i);
end;
function MemToStr(var B; Count: byte): string;
var S: string;
begin
S[0]:=chr(Count);
setlength(s,count);
if Count>0 then Move(B,S[1],Count);
MemToStr:=S;
end;
@ -376,7 +376,7 @@ begin
end
else if Count>255 then
Count:=255;
CharStr[0]:=chr(Count);
setlength(CharStr,Count);
FillChar(CharStr[1],Count,C);
end;
@ -389,7 +389,7 @@ begin
UpCaseStr[I]:=chr(ord(S[I])-32)
else
UpCaseStr[I]:=S[I];
UpcaseStr[0]:=S[0];
Setlength(UpcaseStr,length(s));
end;
function RExpand(const S: string; MinLen: byte): string;
@ -598,7 +598,7 @@ begin
i:=Windows.GetShortPathName(@hs[1],@hs2[1],high(hs2));
if (i>0) and (i<=high(hs2)) then
begin
hs2[0]:=chr(strlen(@hs2[1]));
setlength(hs2,strlen(@hs2[1]));
GetShortName:=hs2;
end;
{$endif}
@ -909,8 +909,8 @@ procedure TFastBufStream.Readline(var s:string;var linecomplete,hasCR : boolean)
if (c=#10) or (getpos>=getsize) then
linecomplete:=true;
if (c=#10) then
hasCR:=true;
s[0]:=chr(i);
hasCR:=true;
setlength(s,i);
end;