procedure TForm1.Button1Click(Sender: TObject); var i: Integer; Resultat: Integer; begin Resultat := 0; if Memo1.Text = '' then Exit; for i := 0 to Memo1.Lines.Count -1 do begin Resultat := Resultat + StrToIntDef(Memo1.Lines[i], 0); end; Edit1.Text := IntToStr(Resultat); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question