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

* resource string numbering

Browse Source
This commit is contained in:
Jonas Maebe 2000-06-04 08:48:54 +00:00
parent e271ae27cb
commit 957bd0bfd5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cresstr.pas
View File

@ -197,9 +197,9 @@ end;
function TResourceStrings.Register(const name : string;p : pchar;len : longint) : longint; function TResourceStrings.Register(const name : string;p : pchar;len : longint) : longint;
begin begin
inc(ResStrCount);
List.Concat(new(PResourceStringItem,Init(lower(current_module^.modulename^+'.'+Name),p,len))); List.Concat(new(PResourceStringItem,Init(lower(current_module^.modulename^+'.'+Name),p,len)));
Register:=ResStrCount; Register:=ResStrCount;
inc(ResStrCount);
end; end;
@ -284,7 +284,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.17 2000-06-01 19:09:57 peter Revision 1.18 2000-06-04 08:48:54 jonas
* resource string numbering
Revision 1.17 2000/06/01 19:09:57 peter
* made resourcestrings OOP so it's easier to handle it per module * made resourcestrings OOP so it's easier to handle it per module
Revision 1.16 2000/01/07 01:14:23 peter Revision 1.16 2000/01/07 01:14:23 peter