mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
44 lines
861 B
ObjectPascal
44 lines
861 B
ObjectPascal
unit StorageU;
|
|
|
|
interface
|
|
|
|
const
|
|
TITLES: array [1 .. 4] of string = ('IBM', 'AAPL', 'GOOG', 'MSFT');
|
|
|
|
function GetNextDataToSend(const LastID: Integer;
|
|
out CurrentEventID: Integer): string;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.JSON;
|
|
|
|
function GetNextDataToSend(const LastID: Integer;
|
|
out CurrentEventID: Integer): string;
|
|
var
|
|
lIndex: Integer;
|
|
lJOBJ: TJSONObject;
|
|
begin
|
|
// You can get the "next" event reading the LastID or, as in this case,
|
|
// just send another event
|
|
|
|
lIndex := LastID;
|
|
while lIndex = LastID do
|
|
begin
|
|
lIndex := Random(Length(Titles)) + 1;
|
|
end;
|
|
|
|
lJOBJ := TJSONObject.Create;
|
|
try
|
|
lJOBJ.AddPair('stock', TITLES[lIndex]);
|
|
lJOBJ.AddPair('value', TJSONNumber.Create((500 + Random(200)) +
|
|
(Random(50) / 100)));
|
|
Result := lJOBJ.ToJSON;
|
|
CurrentEventID := lIndex;
|
|
finally
|
|
lJOBJ.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|