Delphi
1、聲明變量時要使用var關鍵字
Var
S1,s2:string;
Begin
S1:=’hello’;
S2:=’word’;
S1:=s1+s2;
End;
2、改變文本標簽內容
Begin
Label1.Caption:=’hello world’;
End;
3、關閉窗口
Begin
Close;
End;
4、改變單行編輯框背景色
Begin
Edit1.Color:=clRed;
End;
5、函數
Function <函數名> (<形式參數表>);<類型>;
Begin
<語句>;
............
<語句>;
End;
實例-->
Function Total(x,y:real):real;
Begin
Total:=x*y; //返回值由函數名返回
Result:=x+y; //返回值由Result傳回
End;
實例調用方法--->
Function totals(x,y:integer):integer;
begin
result:=x+y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
begin
x:=2;
y:=3;
z:=totals(x,y); //調用函數
Edit1.Text:='0.0.0.0';
end;
6、integer和string互轉
Int-->str: Inttostr();
Str-->int: strtoint();
8、彈框
showmessage('error');
9、if else 使用:
文本框的值是chen就關閉窗口,否則文本框顯示no
begin
co:=Edit1.Text;
if co='chen' then
close
else
Edit1.Text:='no';
end;