Duvida quanto Arrays
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
Curtidas 0
Respostas
Anonymous
06/02/2003
Você precisa escrever um algorítmo de ordenação.
GOSTEI 0
Anonymous
06/02/2003
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.
GOSTEI 0
Magoo
06/02/2003
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;
GOSTEI 0