powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TStringList, сборка пары string-real
18 сообщений из 18, страница 1 из 1
TStringList, сборка пары string-real
    #39856879
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день
есть функция, позволяющая собрать пару 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
TStringList, сборка пары string-real
    #39856885
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pcrepair,

Сохраняй строковое представление (хоть в отформатированном виде, хоть в сыром).
...
Рейтинг: 0 / 0
TStringList, сборка пары string-real
    #39856886
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: 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
TStringList, сборка пары string-real
    #39856889
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pcrepair,

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

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

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

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

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

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

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

TDictionary.

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

Паре - это горы в Танзании.
...
Рейтинг: 0 / 0
TStringList, сборка пары string-real
    #39857169
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
TStringList, сборка пары string-real
    #39857188
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я и говорю "прикольно" будет.


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

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


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