paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:31:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* illegal for-loop var assignemnt

Browse Source
This commit is contained in:
peter 2004-09-16 16:20:06 +00:00
parent b40e27f8b9
commit 5827fb7bf1
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpkeys.pas
View File

@ -97,13 +97,15 @@ var
Procedure StoreKeys(var S : TStream);
var
i : longint;
i,index : longint;
l : byte;
begin
for i:=1 to NumWantedKeys do
if KeyEscape[i]<>'' then
begin
S.Write(i,Sizeof(i));
{ need temporary local var, because write has var argument }
index:=i;
S.Write(index,Sizeof(index));
l:=Length(KeyEscape[i]);
S.Write(l,sizeof(l));
S.Write(KeyEscape[i][1],l);
@ -342,7 +344,10 @@ end.
{
$Log$
Revision 1.3 2002-09-07 15:40:43 peter
Revision 1.4 2004-09-16 16:20:06 peter
* illegal for-loop var assignemnt
Revision 1.3 2002/09/07 15:40:43 peter
* old logs removed and tabs fixed
}