TStringList, сборка пары string-real

Добрый день
есть функция, позволяющая собрать пару string-integer

function MakePare(const DataStr: string; const DataInt: Integer): TStringList;
begin
  Result := TStringList.Create;
  MakePare.AddObject(DataStr, Pointer(DataInt));
end;

но мне нужна пара string-real
можно сделать сборщик на ValueListEditor, но это визуальный компонет

Вопросы:
- можно ли как то модифицировать TStringList
- нет ли иного компонента, позволяющего сбору пары string-real

всем ответившим по делу заранее спасибо

Pcrepair,

Сохраняй строковое представление (хоть в отформатированном виде, хоть в сыром).

type
  TMyPair = record
    Text: string;
    Number: Real;
    constructor Create(Text: string; Number: Real);
  end;

  TMyList = TList<TMyPair>;

begin
  var List:=TMyList.Create;
  List.Add(TMyPair.Create('test',0.5));

Pcrepair,

Generics.Collections TList<TPair<>>

Уточните, что для вас real: если вам хватит возможностей single, то просто в вашем примере замените const DataInt: Integer на const DataInt: Single (те же 4 байта). И маленькое предупреждение: раньше тип real был 6 байт и не обсчитывался сопроцессором, потом его превратили в double, но когда не помню. Проверьте, а то могут быть неприятные спецэффекты.

Если ручное управление канает, то так:

var
 realptr : ^Real;
begin

 New(realptr);
 realptr^ := RealValue;
 // realptr сохранять

Pcrepair
нет ли иного компонента, позволяющего сбору пары string-real

TDictionary.

Posted via ActualForum NNTP Server 1.5

Pcrepair,

var Map := TDictionary<string, Real>.Create();
Map.Add('asd', 2.4);

X-Cite,

var Map := TDictionary<string, Real>.Create();
Map.Add('asd', 2.4);
Map.Add('asd', 3.5);

Во прикольно будет.

Dimitry Sibiryakov
TDictionary.

+1