Fórum Duvida quanto Arrays #133343
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
06/02/2003
Anonymous
Você precisa escrever um algorítmo de ordenação.
Responder
Gostei + 0
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
Gostei + 0
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
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)