窗體設計如上面結構！
**如下：
unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
edit1: tedit;
label1: tlabel;
label2: tlabel;
label3: tlabel;
label4: tlabel;
edit2: tedit;
edit3: tedit;
edit4: tedit;
button1: tbutton;
button2: tbutton;
button3: tbutton;
label5: tlabel;
label6: tlabel;
procedure button2click(sender: tobject);
procedure button1click(sender: tobject);
procedure button3click(sender: tobject);
private
public
end;
varform1: tform1;
type
tman=record
name:string;
id:string;
end;
type
tmarks=record
person:tman;
math:real;
english:real;
end;
implementation
procedure tform1.button2click(sender: tobject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
end;
procedure tform1.button1click(sender: tobject);
varna,num:string;
sx,yy:real;
liuyi:tmarks;
begin
liuyi.person.name:='亂了營亞';
liuyi.person.id:='20012070105';
liuyi.math:=89.5;
liuyi.english:=92.7;
edit1.text:=liuyi.person.name;
edit2.text:=liuyi.person.id;
edit3.text:=floattostr(liuyi.math);
edit4.text:=floattostr(liuyi.english);
end;
procedure tform1.button3click(sender: tobject);
begin
close;
end;
end.
Delphi 陣列和結構體
技術交流,dh講解.記得很早之前我就說過,陣列和結構體在記憶體中其實一樣的,他們都是連續分布的.例如 tmystruct record a,b,c integer end t3intarray array 0.2 of integer 這兩個都佔12位元組,而且tmystruct.a就是t3inta...
5 1結構體的定義和使用
2 struct 結構體名 變數名 struct student stu2 賦初值要用逗號隔開 cout 姓名 年齡 定義結構體時順便建立變數。struct student stu3 就在定義新的型別之後順便建立新的量 此處的stu3可以使用第一第二種的賦值方法。型別相同的結構變數可以整體賦值str...
c 結構體的定義和使用
在許多現實問題中，一組資料往往有很多的資料型別。比如，在一學生登記表中，有姓名，id，手機號，它們有字元型別也有整型。顯然不能用乙個陣列來存放這一組資料。當使用多個陣列存放時 char id 3 10 char name 3 10 char phone 3 20 發現資訊比較鬆散且不直觀，資料訪問不...