Duvida quanto Arrays
06/02/2003
0
Pessoal Bom dia.
estou precisando de uma ajuda referente a matrizes
eu criei um record e depois uma matrix desse record veja abaixo
type
TMatrix = Record
Codigo : Integer;
Nome : String[50];
Apelido : String[25];
end;
var
Matrix : Array of TMatrix;
e adicionei os seguinte dados na matrix
SetLength( Matrix, 2 );
Matrix[0].Codigo := 2;
Matrix[0].Nome := ´Laerte ´;
Matrix[0].Apelido := ´Esfinge´;
Matrix[1].Codigo := 1;
Matrix[1].Nome := ´Anderson´;
Matrix[1].Apelido := ´Dino -=CD=-´;
Gostaria de saber se existe uma maneira de ordenar esta matriz ou pelo codigo
tripo pra ele por em ordem o qeu eu preciso por exemplo
primeiro o codigo 1 e seus dados
depois o 2 e seus dados
se alguem poder me ajduar agradeço.
Anderson Messias da Silva
HL Informatica
www.HLSYSTEMS.com.br
estou precisando de uma ajuda referente a matrizes
eu criei um record e depois uma matrix desse record veja abaixo
type
TMatrix = Record
Codigo : Integer;
Nome : String[50];
Apelido : String[25];
end;
var
Matrix : Array of TMatrix;
e adicionei os seguinte dados na matrix
SetLength( Matrix, 2 );
Matrix[0].Codigo := 2;
Matrix[0].Nome := ´Laerte ´;
Matrix[0].Apelido := ´Esfinge´;
Matrix[1].Codigo := 1;
Matrix[1].Nome := ´Anderson´;
Matrix[1].Apelido := ´Dino -=CD=-´;
Gostaria de saber se existe uma maneira de ordenar esta matriz ou pelo codigo
tripo pra ele por em ordem o qeu eu preciso por exemplo
primeiro o codigo 1 e seus dados
depois o 2 e seus dados
se alguem poder me ajduar agradeço.
Anderson Messias da Silva
HL Informatica
www.HLSYSTEMS.com.br
Anonymous
Curtir tópico
+ 0
Responder
Posts
07/02/2003
Anonymous
Por acaso vc teria algum ai pra me arrumnar?
pois nao tenho nem ideia de como fazer isso.
pois nao tenho nem ideia de como fazer isso.
Responder
09/02/2003
Magoo
procedure TForm1.Button1Click(Sender: TObject);
var
x,y: Word;
AuxCodigo: Word;
AuxNome: String[50];
AuxApelido: String[25];
begin
//Preenche Matrix
SetLength( Matrix, 2 );
Matrix[0].Codigo := 2;
Matrix[0].Nome := ´Laerte ´;
Matrix[0].Apelido := ´Esfinge´;
Matrix[1].Codigo := 1;
Matrix[1].Nome := ´Anderson´;
Matrix[1].Apelido := ´Dino -=CD=-´;
//Indexação da Matrix
for x := 0 to 1 do
begin
for y := 0 to 1 do
if Matrix[x].Codigo < Matrix[y].Codigo then
begin
AuxCodigo:=Matrix[y].Codigo;
AuxNome:=Matrix[y].Nome;
AuxApelido:=Matrix[y].Apelido;
Matrix[y].Codigo:=Matrix[x].Codigo;
Matrix[x].Codigo:=AuxCodigo;
Matrix[y].Nome:=Matrix[x].Nome;
Matrix[x].Nome:=AuxNome;
Matrix[y].Apelido:=Matrix[x].Apelido;
Matrix[x].Apelido:=AuxApelido;
end;
end;
end;
var
x,y: Word;
AuxCodigo: Word;
AuxNome: String[50];
AuxApelido: String[25];
begin
//Preenche Matrix
SetLength( Matrix, 2 );
Matrix[0].Codigo := 2;
Matrix[0].Nome := ´Laerte ´;
Matrix[0].Apelido := ´Esfinge´;
Matrix[1].Codigo := 1;
Matrix[1].Nome := ´Anderson´;
Matrix[1].Apelido := ´Dino -=CD=-´;
//Indexação da Matrix
for x := 0 to 1 do
begin
for y := 0 to 1 do
if Matrix[x].Codigo < Matrix[y].Codigo then
begin
AuxCodigo:=Matrix[y].Codigo;
AuxNome:=Matrix[y].Nome;
AuxApelido:=Matrix[y].Apelido;
Matrix[y].Codigo:=Matrix[x].Codigo;
Matrix[x].Codigo:=AuxCodigo;
Matrix[y].Nome:=Matrix[x].Nome;
Matrix[x].Nome:=AuxNome;
Matrix[y].Apelido:=Matrix[x].Apelido;
Matrix[x].Apelido:=AuxApelido;
end;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)