freepascal.ru

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

Type 
        PData = ^TData;
        TData = record
          id:Integer;
          name:String;
          family:String;
          nikname:String;
       end;

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

program test;
{$mode objfpc}{$h+}
uses
  SysUtils, Generics.Collections;

type
  PData = ^TData;
  TData = record
    id: Integer;
    name,
    family,
    nikname: string;
  end;
  TNikMap = specialize TDictionary<string, PData>;
  TIdMap = specialize TDictionary<Integer, PData>;

const
  Data: array of TData = (
    (id: 1; name: 'John'; family: 'Doe'; nikname: 'Wistle'),
    (id: 3; name: 'Tom'; family: 'Brown'; nikname: 'Crow'),
    (id: 7; name: 'Eva'; family: 'Smith'; nikname: 'Dolly')
  );
var
  IdMap: TIdMap;
  NikMap: TNikMap;
  I: Integer;
  p: PData;
begin
  NikMap := TNikMap.Create;
  IdMap := TIdMap.Create;
  for I := 0 to High(Data) do begin
    IdMap.Add(Data[I].id, @Data[I]);      // бросит исключение, если такой ключ уже существует
    NikMap.Add(Data[I].nikname, @Data[I]);
  end;
  if NikMap.TryGetValue('Dolly', p) then
    with p^ do begin
      WriteLn('id:      ', id);
      WriteLn('name:    ', name);
      WriteLn('family:  ', family);
      WriteLn('nikname: ', nikname);
    end;
  if IdMap.TryGetValue(3, p) then
    with p^ do begin
      WriteLn('id:      ', id);
      WriteLn('name:    ', name);
      WriteLn('family:  ', family);
      WriteLn('nikname: ', nikname);
    end; 
  NikMap.Free;
  IdMap.Free; 
end.

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

program test;
{$mode objfpc}{$h+}
uses
  SysUtils,Classes;
type
  PData = ^TData;
  TData = record
    id: Integer;
    name,
    family,
    nikname: string;
  end;
  
const
  Data: array of TData = (
    (id: 1; name: 'John'; family: 'Doe'; nikname: 'Wistle'),
    (id: 3; name: 'Tom'; family: 'Brown'; nikname: 'Crow'),
    (id: 7; name: 'Eva'; family: 'Smith'; nikname: 'Dolly')
  );
var StrList: TStringList;
  I: Integer;
begin
 StrList:=TStringList.Create;  StrList.Sorted:=True;   	//True - сортировать, False - не сортировать
 StrList.Duplicates:=dupIgnore;   	//dupAccept - сохранять дубликаты (значение по умолчанию), dupIgnore - игнорировать, dupError - вызвать сообщение об ошибке

//Используем  
for I := 0 to High(Data) do  StringList.addObject(Data[I].nikname, TObject(@Data[I])); //и дело в шляпе !
if StringList.Find('Dolly', i) then
   with PData(StringList.Objects[i])^  do 
   begin
      WriteLn('id:      ', id);
      WriteLn('name:    ', name);
      WriteLn('family:  ', family);
      WriteLn('nikname: ', nikname);
    end;

  StrList.Free;
end;

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

  for I := 0 to High(Data) do begin
    IdMap.Add(Data[I].id, @Data[I]);      // бросит исключение, если такой ключ уже существует
    NikMap.Add(Data[I].nikname, @Data[I]);
  end;

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

function mySort(L : TStringList; Item1, Item2: Integer): Integer;
begin
  Result := CompareStr(L[Item1], L[Item2]);
end;
 
procedure TMainForm.Button1Click(Sender: TObject);
var L : TStringList;
begin
  //
  L := TStringList.Create;
  L.Add('start');
  L.Add('finish');
  L.Add('end');
  L.Add('begin');
 
  L.CustomSort(@mySort);
  Memo1.Lines.AddStrings(L);
  L.Free;
end;

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

function mySort(L : TStringList; Item1, Item2: Integer): Integer;
begin
  Result := CompareStr(PData(L.Objects[Item1])^.nikname , PData(L.Objects[Item2])^.nikname);
end;

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

for I := 0 to High(Data) do  StringList.addObject( '', TObject(@Data[I]));