Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Fehler bei Dateneingabe

   
    by Sir Rufo, 19. Jan 2011
  procedure TForm1.Button1Click(Sender: TObject);
  var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
  begin
  if not TryStrToFloat( StringReplace( Edit6.Text, '.', ',', ), aktpreis ) then
  begin
  Edit6.SetFocus;
  Exit;
  end;
  if not TryStrToFloat( StringReplace( Edit3.Text, '.', ',', ), ver100ben ) then
  begin
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Fehler bei Dateneingabe

   
    by Sir Rufo, 19. Jan 2011
  ich würde meinen, dass hier die Delphi-Tags besser angebracht wären :mrgreen:
  dann sieht das so aus
  procedure TForm1.Button1Click(Sender: TObject);
  var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
  begin
  if TryStrToFloat(Edit6.Text,aktpreis) and TryStrToFloat(Edit3.Text,ver100ben)
  and TryStrToFloat(Edit4.Text,jahrkm) then
  begin
  aktpreis :=...