Probleme mit Umrechnung und korrekter Ausgabe

[DeddyH]

Case an den richtigen Stellen: sicherlich. Ein Beispiel:

Zitat:

Delphi-Quellcode:

if editCount = 0 then
  begin
    EditMU.Text := IntToStr(i);
  end
  else
  begin
    if editCount = 1 then

    begin
      EditKL.Text := IntToStr(i);
    end
    else
    begin
      if editCount = 2 then
      begin
        EditCH.Text := IntToStr(i);
      end
      else
      begin
        if editCount = 3 then
        begin
          EditGE.Text := IntToStr(i);
        end
        else
        begin
          if editCount = 4 then
          begin
            EditKK.Text := IntToStr(i);
          end;
        end;
      end;
    end;
  end;

Das geht auch anders:

Delphi-Quellcode:

case editCount of
  0: EditMU.Text := IntToStr(i);
  1: EditKL.Text := IntToStr(i);
  2: EditCH.Text := IntToStr(i);
  3: EditGE.Text := IntToStr(i);
  4: EditKK.Text := IntToStr(i);
end;