mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: FPC 3.0.4 compatibility

Browse source
This commit is contained in:
Alexander Koblov 2022-06-12 15:32:54 +03:00
commit 6093e1aa57
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
components/doublecmd/dcstrutils.pas
View file

@ -842,7 +842,7 @@ function ApplyRenameMask(aFileName: String; NameMask: String; ExtMask: String):
if (Length(TargetString) < Length(Mask)) then
Result:= TargetString
else begin
Result:= String.Empty;
Result:= EmptyStr;
for I:= 1 to Length(Mask) do
begin
if Mask[I] = '?' then

4
src/fmain.pas
View file

@ -1052,13 +1052,13 @@ procedure TfrmMain.FormCreate(Sender: TObject);
if Length(UniqueInstance.ServernameByUser) > 0 then
AServerName := ' [' + UniqueInstance.ServernameByUser + ']'
else begin
AServerName := String.Empty;
AServerName := EmptyStr;
end;
if TryStrToInt(dcRevision, R) then
ARevision:= '.' + dcRevision
else begin
ARevision:= String.Empty;
ARevision:= EmptyStr;
end;
Result := Format('%s%s %s%s',