Форум программистов [Powered by Invision Power Board]

Код


var
SomeArray: Array of String;
...
begin
SetLength(SomeArray, 10);
SomeArray[9]:='Бронная, 12';

Код


SomeArray[Centr]:='Бронная, 12';
SomeArray[South]:='Новый Арбат, 15';

Цитата(Alix @ 24.3.2008, 11:32)

стандартные
TBucketList
TObjectBucketList
возможно будет полезен THashedStringList

Код


type Sometype=RECORD
lala: String;
la2: String;
end;

var
A: Array of Sometype;

begin
A['config.bat'].lala:='111';
end;

Цитата(dma @ 24.3.2008, 12:08)

Ассоциативные массивы =)

Цитата(MadCoder @ 24.3.2008, 12:28

)

Я немного сократил свой код smile. Мне нужно именно массив, я в него свои типы (record) складываю.

Код

type
  TYourRecord = record
    lalala  : string;
    tratata : byte;
  end;

  TAssociativeArray = class
  private
    ...
    procedure SetValue(const Name : string; Value : TYourRecord);
    function GetValue(const Name: string): TYourRecord;
  public
    property Items[const Name : string] : TYourRecord read GetValue write SetValue; default;
  end;

implementation

{ TAssociativeArray }

function TAssociativeArray.GetValue(const Name: string): TYourRecord;
begin
  //...
end;

procedure TAssociativeArray.SetValue(const Name: string;
  Value: TYourRecord);
begin
  //...
end;

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TSomeRecord = class(TComponent)
  public
    lala: string;
    lala2: string;
    name: string;
  end;


type
  TSomeArray = class(TComponent)
  private
    F: array of TSomeRecord;
  public
    function RecordByName(const ARecordName: string): TSomeRecord;
    constructor Create(AOwner: TComponent); override;
  end;


type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FArray: TSomeArray;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TSomeArray }

constructor TSomeArray.Create(AOwner: TComponent);
begin
  inherited;
  SetLength(F, 2);

  F[0] := TSomeRecord.Create(Self);
  F[0].name := 'record0';

  F[1] := TSomeRecord.Create(Self);
  F[1].name := 'record1';
end;


function TSomeArray.RecordByName(const ARecordName: string): TSomeRecord;
var
  i: Integer;
  rec: TSomeRecord;
begin
  for i := Low(F) to High(F) do
  begin
    rec := F[i];
    if AnsiCompareText(rec.name, ARecordName) = 0 then
    begin
      Result := rec;
      Exit;
    end;
  end;
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  FArray := TSomeArray.Create(Self);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FArray.RecordByName('record1').lala := '111';
  ShowMessage(FArray.RecordByName('record1').lala);
end;

end.