Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TStringList, сборка пары string-real / 18 сообщений из 18, страница 1 из 1
03.09.2019, 21:34
    #39856879
Pcrepair
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Добрый день
есть функция, позволяющая собрать пару string-integer
Код: pascal
1.
2.
3.
4.
5.
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

всем ответившим по делу заранее спасибо
...
Рейтинг: 0 / 0
03.09.2019, 21:48
    #39856885
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Pcrepair,

Сохраняй строковое представление (хоть в отформатированном виде, хоть в сыром).
...
Рейтинг: 0 / 0
03.09.2019, 21:51
    #39856886
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
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));
...
Рейтинг: 0 / 0
03.09.2019, 21:56
    #39856889
asviridenkov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Pcrepair,

Generics.Collections TList<TPair<>>
...
Рейтинг: 0 / 0
03.09.2019, 22:02
    #39856890
bk0010
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Уточните, что для вас real: если вам хватит возможностей single, то просто в вашем примере замените const DataInt: Integer на const DataInt: Single (те же 4 байта). И маленькое предупреждение: раньше тип real был 6 байт и не обсчитывался сопроцессором, потом его превратили в double, но когда не помню. Проверьте, а то могут быть неприятные спецэффекты.
...
Рейтинг: 0 / 0
03.09.2019, 22:06
    #39856891
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Если ручное управление канает, то так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
var
 realptr : ^Real;
begin

 New(realptr);
 realptr^ := RealValue;
 // realptr сохранять
...
Рейтинг: 0 / 0
03.09.2019, 22:08
    #39856892
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Pcrepairнет ли иного компонента, позволяющего сбору пары string-real

TDictionary.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
03.09.2019, 23:25
    #39856902
X-Cite
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Pcrepair,

Код: pascal
1.
2.
var Map := TDictionary<string, Real>.Create();
Map.Add('asd', 2.4);
...
Рейтинг: 0 / 0
03.09.2019, 23:27
    #39856903
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
X-Cite,

Код: pascal
1.
2.
3.
var Map := TDictionary<string, Real>.Create();
Map.Add('asd', 2.4);
Map.Add('asd', 3.5);

Во прикольно будет.
...
Рейтинг: 0 / 0
04.09.2019, 08:33
    #39856928
X11
X11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Dimitry SibiryakovTDictionary.

+1
...
Рейтинг: 0 / 0
04.09.2019, 08:45
    #39856934
ёёёёё
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Dimitry SibiryakovPcrepairнет ли иного компонента, позволяющего сбору пары string-real

TDictionary.

Если не понадобится сортировка. И если Delphi более-менее новая.
...
Рейтинг: 0 / 0
04.09.2019, 10:22
    #39856984
Василий 2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
(зануда mode) Пара - это Pair, или в данном контексте более правильно Tuple. А Pare - это подрезать ногти
...
Рейтинг: 0 / 0
04.09.2019, 10:34
    #39856990
ёёёёё
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Василий 2,

Паре - это горы в Танзании.
...
Рейтинг: 0 / 0
04.09.2019, 13:52
    #39857169
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
rgreat
Код: pascal
1.
2.
3.
var Map := TDictionary<string, Real>.Create();
Map.Add('asd', 2.4);
Map.Add('asd', 3.5);


Во прикольно будет.Не будет. На втором Add будет exception
...
Рейтинг: 0 / 0
04.09.2019, 14:17
    #39857188
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
Я и говорю "прикольно" будет.


Кстати, в моем словаре есть опция работы с повторяющимеся ключами. ;)
...
Рейтинг: 0 / 0
04.09.2019, 14:24
    #39857192
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
rgreatКстати, в моем словаре есть опция работы с повторяющимеся ключами. ;)В стандартном тоже. AddOrSet. Или у тебя список хранится?
...
Рейтинг: 0 / 0
06.09.2019, 17:43
    #39858571
Gator
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
ёёёёёВасилий 2,

Паре - это горы в Танзании.В Танзании вкусный кофе растёт.
...
Рейтинг: 0 / 0
06.09.2019, 18:03
    #39858591
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TStringList, сборка пары string-real
_Vasilisk_Или у тебя список хранится?Список.
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TStringList, сборка пары string-real / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]