paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 13:43:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* LCL: Try to prevent stringcopy in StripLN

Browse Source 
git-svn-id: trunk@24482 -
This commit is contained in:
marc 2010-04-06 23:25:55 +00:00
parent 24bd03d778
commit ff08093f2f
1 changed files with 6 additions and 9 deletions

15
lcl/lclproc.pas
View File

@ -2844,22 +2844,19 @@ function StripLN(const ALine: String): String;
var
idx: Integer;
begin
idx := Pos(#10, ALine);
Result := ALine;
idx := Pos(#10, Result);
if idx = 0
then begin
idx := Pos(#13, ALine);
if idx = 0
then begin
Result := ALine;
Exit;
end;
idx := Pos(#13, Result);
if idx = 0 then Exit;
end
else begin
if (idx > 1)
and (ALine[idx - 1] = #13)
and (Result[idx - 1] = #13)
then Dec(idx);
end;
Result := Copy(ALine, 1, idx - 1);
SetLength(Result, idx - 1);
end;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String): String;