86 lines
2.1 KiB
ObjectPascal
86 lines
2.1 KiB
ObjectPascal
|
|
||
|
|
{******************************************}
|
||
|
|
{ }
|
||
|
|
{ FastReport v4.0 }
|
||
|
|
{ Server variables }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1998-2009 }
|
||
|
|
{ by Alexander Fediachov, }
|
||
|
|
{ Fast Reports Inc. }
|
||
|
|
{ }
|
||
|
|
{******************************************}
|
||
|
|
|
||
|
|
unit frxServerVariables;
|
||
|
|
|
||
|
|
{$I frx.inc}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses Windows, Classes, SysUtils;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrxServerVariable = class(TCollectionItem)
|
||
|
|
private
|
||
|
|
FName: String;
|
||
|
|
FValue: AnsiString;
|
||
|
|
published
|
||
|
|
property Name: String read FName write FName;
|
||
|
|
property Value: AnsiString read FValue write FValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
TfrxServerVariables = class(TCollection)
|
||
|
|
public
|
||
|
|
constructor Create;
|
||
|
|
function GetValue(const Name: String): AnsiString;
|
||
|
|
procedure AddVariable(const Name: String; const Value: AnsiString);{$IFDEF Delphi12} overload;
|
||
|
|
procedure AddVariable(const Name: String; const Value:String); overload;
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{ TfrxServerVarables }
|
||
|
|
|
||
|
|
procedure TfrxServerVariables.AddVariable(const Name: String;const Value: AnsiString);
|
||
|
|
var
|
||
|
|
i, j: Integer;
|
||
|
|
s: String;
|
||
|
|
v: TfrxServerVariable;
|
||
|
|
begin
|
||
|
|
j := -1;
|
||
|
|
s := UpperCase(Name);
|
||
|
|
for i := 0 to Count - 1 do
|
||
|
|
if TfrxServerVariable(Items[i]).Name = Name then
|
||
|
|
j := i;
|
||
|
|
if j > 0 then
|
||
|
|
v := TfrxServerVariable(Items[j])
|
||
|
|
else begin
|
||
|
|
v := TfrxServerVariable(Add);
|
||
|
|
v.Name := Name;
|
||
|
|
end;
|
||
|
|
v.Value := Value;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$IFDEF Delphi12}
|
||
|
|
procedure TfrxServerVariables.AddVariable(const Name, Value: String);
|
||
|
|
begin
|
||
|
|
AddVariable(Name, AnsiString(Value));
|
||
|
|
end;
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
constructor TfrxServerVariables.Create;
|
||
|
|
begin
|
||
|
|
inherited Create(TfrxServerVariable);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TfrxServerVariables.GetValue(const Name: String): AnsiString;
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
begin
|
||
|
|
Result := '';
|
||
|
|
for i := 0 to Count - 1 do
|
||
|
|
if TfrxServerVariable(Items[i]).Name = Name then
|
||
|
|
Result := TfrxServerVariable(Items[i]).Value;
|
||
|
|
end;
|
||
|
|
end.
|