Veja como armazenar informações estruturadas com mais de uma dimensão em um simples TStringList.

var Lista : TStringList;     x     : integer;     Nome  : String; begin   Lista := TStringList.Create;   Nome := 'Zilda';   Lista.AddObject(Nome,TRegistro.Create);   TRegistro(Lista.Objects[0]).Nome := Nome;   TRegistro(Lista.Objects[0]).Telefone := '111-1111';   Nome := 'Carlos';   Lista.AddObject('0',TRegistro.Create);   TRegistro(Lista.Objects[1]).Nome := Nome;   TRegistro(Lista.Objects[1]).Telefone := '222-2222';   Nome := 'Adenilton';   Lista.AddObject('0',TRegistro.Create);   TRegistro(Lista.Objects[2]).Nome := Nome;   TRegistro(Lista.Objects[2]).Telefone := '333-3333';   Nome := 'Maria';   Lista.AddObject('0',TRegistro.Create);   TRegistro(Lista.Objects[3]).Nome := Nome;   TRegistro(Lista.Objects[3]).Telefone := '444-4444';   Lista.Sorted := True;   For x := 0 to Lista.Count-1 do Begin       Memo1.Lines.Add ( TRegistro(Lista.Objects[x]).Nome + ' ' +TRegistro(Lista.Objects[x]).Telefone );   End;   For x := 0 to Lista.Count-1 do Lista.Objects[x].Destroy;   Lista.Free; end; Se você não quiser criar uma estrutura de dados, pode usar o TSTringList para o armazenamento das dimensões, veja: procedure TForm1.Button1Click(Sender: TObject); var Lista : TStringList;     x     : integer;     Nome  : String;     Fone  : String; begin   Lista := TStringList.Create;   Nome := 'Zilda';   Fone := '111-1111';   Lista.AddObject(Nome,TStringList.Create);   TStringList(Lista.Objects[0]).Add(Nome);   TStringList(Lista.Objects[0]).Add(Fone);   Nome := 'Carlos';   Fone := '222-2222';   Lista.AddObject(Nome,TStringList.Create);   TStringList(Lista.Objects[1]).Add(Nome);   TStringList(Lista.Objects[1]).Add(Fone);   Nome := 'Adenilton';   Fone := '333-3333';   Lista.AddObject(Nome,TStringList.Create);   TStringList(Lista.Objects[2]).Add(Nome);   TStringList(Lista.Objects[2]).Add(Fone);   Nome := 'Maria';   Fone := '444-4444';   Lista.AddObject(Nome,TStringList.Create);   TStringList(Lista.Objects[3]).Add(Nome);   TStringList(Lista.Objects[3]).Add(Fone);   Lista.Sorted := True;   For x := 0 to Lista.Count-1 do Begin       Memo1.Lines.Add ( TStringList(Lista.Objects[x]).Strings[0] + ' ' +TStringList(Lista.Objects[x]).Strings[1] );   End;   For x := 0 to Lista.Count-1 do Lista.Objects[x].Free;   Lista.Free; end;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 07/07/2002 14:09:23
Visualizado..: 340 vezes
Fonte........: AdeN Knowledge DB