If I take what masterBB said and expand on it: (I wrote this before I saw Abu's post, the only bit that is new is the function)
Simba Code:
type
TObject = record
price, timeA, timeB: Integer;
name, DTM: String;
end;//Don't forget the end
This would be the record where you would store the info, you then need a function to neatly input the info into the record:
Simba Code:
Function Object(ObjPrice, ObjTimeA, ObjTimeB : integer; Objname, ObjDTM : String) : TObject;
begin
with Result do
begin
Price := ObjPrice;
timeA := ObjTimeA;
timeB := ObjTimeB;
name := ObjName;
DTM := ObjDTM;
end;
end;
Then you need your variable to store the info in:
Simba Code:
Var
Objects : array of TObject;
then you can store your info:
Simba Code:
SetArrayLength(Objects, 3);
Objects[0] := Object(30, 20, 10, 'carrot', 'ewbfuwerofbgerbgv');
Objects[1] := //...
or
Simba Code:
Objects := [Object(30, 20, 10, 'carrot', 'ewbfuwerofbgerbgv'), Object(40, 2420, 2420, 'stick', 'esdvgisdfnsdvfbnofbgerbgv')...];
and you retrieve the info by doing:
Simba Code:
WriteLn(Objects[0].Price);