델피 - 일련 번호를 읽고 사용자가 0을 입력 할 때까지 추가하는 프로그램 작성

Question

이것은 지금까지 내가 편집 장소에 숫자를 입력하고 버튼을 누르면 충돌합니다. Delphi에 초보자가 도와주세요! 고마워, 매트

var 
    Form3: TForm3; 
    Count: integer; 
    RunningTotal: Real; 
implementation 

{$R *.dfm} 



procedure TForm3.btnEnterClick(Sender: TObject); 
begin 
repeat 

    RunningTotal:= RunningTotal + STRTOINT (edtNum.Text); 
until STRTOINT(edtNum.Text)=0; 
    lblAns.Caption:= FLOATTOSTR (RunningTotal); 

end; 

procedure TForm3.edtNumChange(Sender: TObject); 
begin 

end; 

procedure TForm3.FormCreate(Sender: TObject); 
begin 
Count:=0; 
RunningTotal:=0; 
end; 

end. 

Answer 1

사용자가 첫 번째 값을 제공하면 계속 반복됩니다. 이벤트 처리기에서 수행해야하는 모든 작업은 단일 값을 취하여 처리합니다. 그가 당신에게 0를 제공 할 때까지

procedure TForm3.btnEnterClick(Sender: TObject); 
begin 
    if STRTOINT(edtNum.Text)=0 then 
    lblAns.Caption:= FLOATTOSTR (RunningTotal) 
    else 
    RunningTotal:= RunningTotal + STRTOINT (edtNum.Text); 
end; 

이 방법으로 사용자는 더욱 번호를 제출할 수 있습니다.

Answer 2

당신은 예외를 처리 할 수있는 exception.You가 발생합니다 숫자 대신 문자를 입력합니다 또는 당신은 코드 내에서 반복하고이

var 
    Form1: TForm1; 
    myvalue : Real = 0; 
implementation 

{$R *.dfm} 



procedure TForm1.btn1Click(Sender: TObject); 
var 
    number : Real; 
begin 
    number := StrToFloat(Edit1.Text); 
    if number = 0 then ShowMessageFmt('The result is %f',[myvalue]) 
    else 
    myvalue := myvalue + number; 
    Edit1.Text := ''; 
end; 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if not (Key in ['0'..'9','.']) then Key := #0; 
end;