paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better replacements that also allow $1 in the replacements without

Browse Source 
replacing that instance also
This commit is contained in:
peter 2002-04-19 15:41:39 +00:00
parent b599237202
commit a3e5fcecde
1 changed files with 52 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
compiler/cmsgs.pas
View File

@ -75,6 +75,47 @@ uses
strings; strings;
{$endif DELPHI} {$endif DELPHI}
function MsgReplace(const s,s1,s2,s3,s4:string):string;
var
last,
i : longint;
hs : string;
begin
if s='' then
begin
MsgReplace:='';
exit;
end;
hs:='';
i:=0;
last:=0;
while (i<length(s)-1) do
begin
inc(i);
if (s[i]='$') and
(s[i+1] in ['1'..'4']) then
begin
hs:=hs+copy(s,last+1,i-last-1);
case s[i+1] of
'1' :
hs:=hs+s1;
'2' :
hs:=hs+s2;
'3' :
hs:=hs+s3;
'4' :
hs:=hs+s4;
end;
inc(i);
last:=i;
end;
end;
MsgReplace:=hs+copy(s,last+1,length(s)-last);;
end;
constructor TMessage.Init(n:longint;const idxmax:array of longint); constructor TMessage.Init(n:longint;const idxmax:array of longint);
var var
i : longint; i : longint;
@ -394,56 +435,38 @@ begin
end; end;
function TMessage.Get3(nr:longint;const s1,s2,s3:string):string; function TMessage.Get4(nr:longint;const s1,s2,s3,s4:string):string;
var
s : string;
begin begin
s:=Get(nr); Get4:=MsgReplace(Get(nr),s1,s2,s3,s4);
Replace(s,'$1',s1);
Replace(s,'$2',s2);
Replace(s,'$3',s3);
Get3:=s;
end; end;
function TMessage.Get4(nr:longint;const s1,s2,s3,s4:string):string; function TMessage.Get3(nr:longint;const s1,s2,s3:string):string;
var
s : string;
begin begin
s:=Get(nr); Get3:=MsgReplace(Get(nr),s1,s2,s3,'');
Replace(s,'$1',s1);
Replace(s,'$2',s2);
Replace(s,'$3',s3);
Replace(s,'$4',s4);
Get4:=s;
end; end;
function TMessage.Get2(nr:longint;const s1,s2:string):string; function TMessage.Get2(nr:longint;const s1,s2:string):string;
var
s : string;
begin begin
s:=Get(nr); Get2:=MsgReplace(Get(nr),s1,s2,'','');
Replace(s,'$1',s1);
Replace(s,'$2',s2);
Get2:=s;
end; end;
function TMessage.Get1(nr:longint;const s1:string):string; function TMessage.Get1(nr:longint;const s1:string):string;
var
s : string;
begin begin
s:=Get(nr); Get1:=MsgReplace(Get(nr),s1,'','','');
Replace(s,'$1',s1);
Get1:=s;
end; end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-03-01 12:41:40 peter Revision 1.3 2002-04-19 15:41:39 peter
* better replacements that also allow $1 in the replacements without
replacing that instance also
Revision 1.2 2002/03/01 12:41:40 peter
* fixed Message4() * fixed Message4()
Revision 1.1 2001/08/20 10:58:48 florian Revision 1.1 2001/08/20 10:58:48 florian