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.
delphi 7 inputbox a girilenlerin showmessage ile nasıl listelerim
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: delphi 7 inputbox a girilenlerin showmessage ile nasıl listelerim
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.