paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* saving of switches with longint values fixed

Browse Source 
git-svn-id: trunk@4204 -
This commit is contained in:
Tomas Hajny 2006-07-15 00:08:26 +00:00
parent b5638411e1
commit 203554e0e9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/fpswitch.pas
View File

@ -104,7 +104,7 @@ type
Val : array[TSwitchMode] of longint; Val : array[TSwitchMode] of longint;
constructor Init(const n,p:string; AID: TParamID); constructor Init(const n,p:string; AID: TParamID);
function NeedParam:boolean;virtual; function NeedParam:boolean;virtual;
function ParamValue:string;virtual; function ParamValue(nr:sw_integer):string;virtual;
function GetNumberStr(SM: TSwitchMode): string; virtual; function GetNumberStr(SM: TSwitchMode): string; virtual;
procedure Reset;virtual; procedure Reset;virtual;
end; end;
@ -415,7 +415,7 @@ begin
end; end;
function TLongintItem.ParamValue:string; function TLongintItem.ParamValue(nr:sw_integer):string;
var var
s : string; s : string;
begin begin