freepascal.ru

Всем привет!
Прошу помощи у более опытных коллег.
Есть несколько однотипных переменных, которым присвоены значения. Эти переменные комбинируются между собой. Задача в зависимости от комбинации выводить текст соответствующий своей переменной, но не являющийся значением этой переменной.
Как такое реализовать? Уже день думаю.

по-моему ты говоришь про RTTI

скалогрыз писал(а):по-моему ты говоришь про RTTI

Штука полезная, но немного не то. Я тут ночью залез в учебники и узнал о такой классной штуке как записи. Все стало просто ясно и логично сразу. Сделан еще один шаг к переходу на ООП Сейчас разбираюсь как создать массив записей и с ним работать.

Массив записей создается точно так же, как массив любых других типов элементов. В чём проблема?

Снег Север писал(а):Массив записей создается точно так же, как массив любых других типов элементов. В чём проблема?

Уже сделано. Но есть неудобства в виде необходимости помнить под каким индексом какая запись находится. Может можно такое решение заменить чем то более удобным?

ANTIKLAN писал(а):Но есть неудобства в виде необходимости помнить под каким индексом какая запись находится. Может можно такое решение заменить чем то более удобным?

Не могу понять суть проблемы. Вам надо отыскивать элемент массива по уникальному имени, что ли? Ну так давайте такое имя в дополнительном поле вашей записи и отыскивайте перебором.

ANTIKLAN писал(а):Но есть неудобства в виде необходимости помнить под каким индексом какая запись находится. Может можно такое решение заменить чем то более удобным?

по-моему, ты говоришь про RTTI

Про базу данных он говорит. Хотя и невнятно...

а я вангую что ТСу надо воттак

Код: Выделить всё

program dict;
{$MODE DELPHI}
uses ghashmap;
type

  StringHash=class
    class function hash(s:string; n:longint):SizeUInt;
  end;

  TMyDictionary <TValue> = class(THashMap<String, TValue,StringHash>)
  end;

  TMySuperPuperData=record
                          a:integer;
                          b:real;
                    end;

  TMySuperPuperDictionary=TMyDictionary<TMySuperPuperData>;

  function MakeHash(const s: String):SizeUInt;
  var
    I: Integer;
  begin
    Result := 0;
    for I := 1 to Length(s) do
      Result := ((Result shl 7) or (Result shr 25)) + Ord(s[I]);
  end;

  class function StringHash.hash(s:String; n:longint):SizeUInt;
  begin
       result:=makehash(s) mod SizeUInt(n);
  end;

var
MySuperPuperDictionary:TMySuperPuperDictionary;
MySuperPuperData:TMySuperPuperData;
begin
  MySuperPuperDictionary:=TMySuperPuperDictionary.create;

  MySuperPuperData.a:=100;
  MySuperPuperDictionary.insert('сто',MySuperPuperData);
  MySuperPuperData.a:=200;
  MySuperPuperDictionary.insert('двести',MySuperPuperData);

  writeln(MySuperPuperDictionary.GetData('сто').a);
  writeln(MySuperPuperDictionary.GetData('двести').a);

  MySuperPuperDictionary.destroy;
  readln;
end.

а конкретно вот это

Код: Выделить всё

  MySuperPuperDictionary.GetData('сто');
  MySuperPuperDictionary.GetData('двести');

Но судя по тому что

Я тут ночью залез в учебники и узнал о такой классной штуке как записи.

пока рано, как советовали выше лучше добавить дополнительное поле и искать перебором

скалогрыз писал(а):

ANTIKLAN писал(а):Но есть неудобства в виде необходимости помнить под каким индексом какая запись находится. Может можно такое решение заменить чем то более удобным?

по-моему, ты говоришь про RTTI

zub писал(а):а я вангую что ТСу надо воттак

Код: Выделить всё

program dict;
{$MODE DELPHI}
uses ghashmap;
type

  StringHash=class
    class function hash(s:string; n:longint):SizeUInt;
  end;

  TMyDictionary <TValue> = class(THashMap<String, TValue,StringHash>)
  end;

  TMySuperPuperData=record
                          a:integer;
                          b:real;
                    end;

  TMySuperPuperDictionary=TMyDictionary<TMySuperPuperData>;

  function MakeHash(const s: String):SizeUInt;
  var
    I: Integer;
  begin
    Result := 0;
    for I := 1 to Length(s) do
      Result := ((Result shl 7) or (Result shr 25)) + Ord(s[I]);
  end;

  class function StringHash.hash(s:String; n:longint):SizeUInt;
  begin
       result:=makehash(s) mod SizeUInt(n);
  end;

var
MySuperPuperDictionary:TMySuperPuperDictionary;
MySuperPuperData:TMySuperPuperData;
begin
  MySuperPuperDictionary:=TMySuperPuperDictionary.create;

  MySuperPuperData.a:=100;
  MySuperPuperDictionary.insert('сто',MySuperPuperData);
  MySuperPuperData.a:=200;
  MySuperPuperDictionary.insert('двести',MySuperPuperData);

  writeln(MySuperPuperDictionary.GetData('сто').a);
  writeln(MySuperPuperDictionary.GetData('двести').a);

  MySuperPuperDictionary.destroy;
  readln;
end.

а конкретно вот это

Код: Выделить всё

  MySuperPuperDictionary.GetData('сто');
  MySuperPuperDictionary.GetData('двести');

Но судя по тому что

Я тут ночью залез в учебники и узнал о такой классной штуке как записи.

пока рано, как советовали выше лучше добавить дополнительное поле и искать перебором

Это альтернативы? Что то сложно очень. Мне пока не понятно.