jsj_DELPHI基本语法(12)

delphi网络资源总结,话了重点,方便阅读,记忆

var i : integer; for i := 1 to 5 do writeln(i); for for repeat..until while..do

2.1.8.1

function NoValue(AnEditBox:TEdit):Boolean; begin if AnEditBox.Text='' then begin AnEditBox.Color := clRed; AnEditBox.Text := ' '; Result := True; end else begin AnEditBox.Color := clWindow; Result := False; end; end; NoValue Result Delphi NoValue procedure TForm1.AddClick(Sender: TObject); var FirstNumber,SecondNumber : Integer; begin if NoValue(Edit1)or NoValue(Edit2) then exit; Count := Count + 1; Counter.Text := IntToStr(Count); FirstNumber := StrToInt(Edit1.Text); SecondNumber := StrToInt(Edit2.Text); Edit3.Text := IntToStr

(FirstNumber+SecondNumber); end; exit

if A>0 rhen test1(A); { Test2 Test1} end; procedure