GARANTIR DESCONTO

Fórum duvida vetor #337444

07/02/2007

0

Delphi

boa noite gostaria de criar um vetor onde sera armazenado nome e outro idade depois juntaria os 2 , primeiro indice nome com primeiro indice idade.


valw


Ciotti

Ciotti

Responder

Posts

07/02/2007

Rjun

Criar vários tópicos com a mesma dúvida não irá fazer com que respondam mais rapidamente. Você poderia colocar uma descrição melhor do seu problema. Um array de records não resolveria?


Responder

Gostei + 0

07/02/2007

Ciotti

vc pode citar um exemplo por favor.


Responder

Gostei + 0

07/02/2007

Rjun

Descreva exatamente o que você quer fazer.


Responder

Gostei + 0

07/02/2007

Ciotti

entao amigo gostaria de criar um array de nome e idade onde no final sera concatenado o nome com a idade mas na ordem de insercacao .
agora acho que me expressei melhor abraco amigo.


Responder

Gostei + 0

07/02/2007

Rjun

Deixa eu ver se entendi:

. Dois arrays, um com nome e outro com idade:

Nome = [´Jose´, ´Maria´]
Idade = [30, 29]

. Você que concatenar as duas, ficando assim:
[´Jose´, 30, ´Maria´, 29].

Isso?


Responder

Gostei + 0

07/02/2007

Ciotti

isso. mas o usuario tem que definir o nome e a idade.


Responder

Gostei + 0

07/02/2007

Rinez

Prezado ciotti:
Dependendo o que você quer fazer às vezes é melhor usar Clientdataset em memória em lugar de vetor. Mas vamos lá crie um novo projeto
coloque:
dois edits, um button e um memo, teste a unit:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
Type
Tmatrizmista = Record
nome: string;
numero: integer;
end;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
Memo1: TMemo;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
teste:array of tmatrizmista;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,n:integer;
begin
setlength(teste,length(teste)+1);
n:=length(teste)-1;
showmessage(´Length do Vetor:´+inttostr(n+1)+´ ´+´Posição do Vetor:´+inttostr(n));
teste[n].nome:=edit1.Text;
try
teste[n].numero:=strtoint(edit2.Text);
except
on e:exception do begin
showmessage(´Número Inválido´);
edit2.SetFocus;
exit;
end; end;
showmessage(teste[n].nome+´ - ´+ inttostr(teste[n].numero));
memo1.Clear;
for i:=0 to n do begin
memo1.Lines.Add(uppercase(teste[i].nome) +´ ´+inttostr(teste[i].numero));
end;
end;

end.
Faça os testes. Espero que entenda. Quando trabalhava com clipper eu usava muito vetor, mas o Delphi permite o uso de outras tecnologias.
Qualquer coisa estamos aí,
Prof. Zenir


Responder

Gostei + 0

07/02/2007

Massuda

isso. mas o usuario tem que definir o nome e a idade.
Array é um conjunto ordenado de itens de mesmo tipo. Experimente fazer um array de records.


Responder

Gostei + 0

07/02/2007

Ciotti

ola amigo funcionou mas achei meio complexo esse codigo , vc podeira dar uma palinha por favor.


valew cara forte abraco.


Responder

Gostei + 0

07/02/2007

Ciotti

ola amigo nao existe uma outra forma mais facil por exemplo comecando dessa forma fica mais facil para eu possa entender;


var
vtnome : array [0..2] of string;
vtidade : array [0..2] of string;
i , n: Integer;
begin

etc.....


Responder

Gostei + 0

07/02/2007

Rjun 

var
  Nome: array[1..2] of string;
  Idade: array[1..2] of string;
  Resultado: array[1..4] of string;
  i: integer;
  j: integer;
begin

  for i := 1 to 2 do
  begin
    Nome[i] := InputBox(´Informe o nome´, ´Nome´, ´´);
    Idade[i] := InputBox(´Informe a idade´, ´Idade´, ´´);
  end;

  j := 0;
  for i := 1 to 2 do
  begin
    j := j + 1;
    Resultado[j] := Nome[i];
    j := j + 1;
    Resultado[j] := Idade[i];
  end;
end;



Responder

Gostei + 0

07/02/2007

Ciotti

valw cara era isso nao sou muito bom com vetores apessar de programar. abracos


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar