delphi 7 inputbox a girilenlerin showmessage ile nasıl listelerim

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
iremm
Üye
Mesajlar: 1
Kayıt: 05 Ara 2021 12:33

delphi 7 inputbox a girilenlerin showmessage ile nasıl listelerim

Mesaj gönderen iremm »

merhabalar , delphi 7 kitabında 79 a kadar işledik ve hocamız böle bi kod verdi ve bize bir adet daha buton ekleyip burdan girilen verilerin o butona basınca showmessage ile listelememizi istedi lütfen yardımcı olabilir misiniz ?? elimde olan kod bu diğer butonu nasıl yapıcam




type
musteri=record
adisoyadi:AnsiString;adresi:AnsiString;
urun:AnsiString;fiyati:Currency;

end;

procedure TForm1. Button1Click (Sender: TObject);
var
i:integer;
yeni:Array [0..2] of musteri;
begin
for i:=0 to 2 do
begin
yeni. adisoyadi:=InputBox ('Ad','Musteri','');
yeni. adresi:=InputBox ('Ad','Musteri','');
yeni. urun:=InputBox ('Ad','Musteri','');
yeni. fiyati:=StrToCurr (InputBox ('Ad','Musteri',''));

end;
end.
Kullanıcı avatarı
loaded
Üye
Mesajlar: 122
Kayıt: 12 Eki 2010 09:45
Konum: Konya
İletişim:

Re: delphi 7 inputbox a girilenlerin showmessage ile nasıl listelerim

Mesaj gönderen loaded »

Verdiğiniz kodlara göre şu şekilde yapılabilir.

Kod: Tümünü seç

type
musteri=record
adisoyadi:AnsiString;adresi:AnsiString;
urun:AnsiString;fiyati:Currency;
end;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  i:integer;
  yeni:Array [0..2] of musteri;
implementation

{$R *.lfm}

{ TForm1 }




procedure TForm1.Button1Click (Sender: TObject);
begin
  for i:=0 to 2 do
  begin
  yeni[i].adisoyadi:=InputBox ('Ad','Musteri','');
  yeni[i].adresi:=InputBox ('Ad','Musteri','');
  yeni[i].urun:=InputBox ('Ad','Musteri','');
  yeni[i].fiyati:=StrToCurr (InputBox ('Ad','Musteri','0'));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  for i:=0 to 2 do
  begin
  showmessage('Ad'+ 'Musteri' +  yeni[i].adisoyadi);
  showmessage('Ad'+ 'Musteri' +  yeni[i].adresi);
  showmessage('Ad'+ 'Musteri' +  yeni[i].urun);
  showmessage('Ad'+ 'Musteri' +  currtostr(yeni[i].fiyati));
  end;
end;

end.    
Kalk ve işe yarar bir şey yap! Çünkü Allah (c.c.) yeniden başlayanların yardımcısıdır.
Cevapla