Taschenrechner

[blondervolker]

Hallo,

willst noch lernen? Oder reicht ein fertiger?
Sieht besser aus und hast keine Arbeit...
Von TMS ist nicht übel...Ja es gibt auch andere...

[himitsu]

Und um das nochmal an einem Beispiel zu zeigen.

Ein CASE-Statement entspricht praktisch vielen aneinanderhängenden IF-Statements.

Zitat:

Delphi-Quellcode:

if S_zeichen = '+' then
begin
  r_erg := (r_Zahl1 + r_Zahl2 + r_zahl3);
end
else
begin
  if S_zeichen = '-' then
  begin
    r_erg := (r_Zahl1 - r_Zahl2 - r_zahl3);
  end
  else
  begin
    if S_zeichen = '*' then
    begin
      r_erg := (r_Zahl1 * r_Zahl2 * r_zahl3);
    end
    else
    begin
      if S_zeichen = '/' then
      begin
        r_erg := (r_Zahl1 / r_Zahl2 / r_zahl3);
      end
      else
        showmessage('Falsches Rechenzeichen');
    end;
  end;
end;

BEGIN+END braucht man praktisch nur, um "mehrere" Befehle zusammenzufassen.
Steht nur ein Befehl dazwischen, dann kann das auch weg.

Delphi-Quellcode:

if S_zeichen = '+' then
  r_erg := (r_Zahl1 + r_Zahl2 + r_zahl3)
else
  if S_zeichen = '-' then
    r_erg := (r_Zahl1 - r_Zahl2 - r_zahl3)
  else
    if S_zeichen = '*' then
      r_erg := (r_Zahl1 * r_Zahl2 * r_zahl3)
    else
      if S_zeichen = '/' then
        r_erg := (r_Zahl1 / r_Zahl2 / r_zahl3)
      else
        showmessage('Falsches Rechenzeichen');

Nun noch etwas anders formatiert, womit es eher auffällt, daß die Befehle (r_erg := ...) alle in einer Ebene stehen.

Delphi-Quellcode:

if S_zeichen = '+' then
  r_erg := r_Zahl1 + r_Zahl2 + r_zahl3
else if S_zeichen = '-' then
  r_erg := r_Zahl1 - r_Zahl2 - r_zahl3
else if S_zeichen = '*' then
  r_erg := r_Zahl1 * r_Zahl2 * r_zahl3
else if S_zeichen = '/' then
  r_erg := r_Zahl1 / r_Zahl2 / r_zahl3
else
  showmessage('Falsches Rechenzeichen');

Tja, und nun wurden nur noch die "zusammenhängenden" IFs durch das CASE ersetzt.

Delphi-Quellcode:

case S_zeichen of
  '+': r_erg := r_Zahl1 + r_Zahl2 + r_zahl3;
  '-': r_erg := r_Zahl1 - r_Zahl2 - r_zahl3;
  '*': r_erg := r_Zahl1 * r_Zahl2 * r_zahl3;
  '/': r_erg := r_Zahl1 / r_Zahl2 / r_zahl3;
  else ShowMessage('Falsches Rechenzeichen');
end;

In deinem Fall hättest du also deine ganze Funktion durch 2 CASE ersetzen können. (jeweils die zusammengehörenden Rechenoperationen)

Und dann noch ein IF (oder CASE, falls es noch mehr Variablen werden ... nicht nur "2" oder "3").
Wobei du natürlich auch die Variante mit 3 Variablen auch für die mit 2 Variablen nutzen könntest. (dabei muß nur r_zahl3 bei +|- mit 0 und bei *|/ mit 1 gefüllt werden, damit sie mathematisch nicht auffällt)


PS: S_zeichen muß hier natürlich ein Char sein, denn CASE versteht nur ordinale Typen.

[sx2008]

Ich greife hier mal ein Schnippsel raus:

Delphi-Quellcode:

      if (Edit1.Text = 'Pflichtfeld') or (Edit2.Text = 'Pflichtfeld') or
        (Edit3.Text = 'Pflichtfeld') then
      begin
        showmessage('Pflichtfelder ausfüllen');

Pflichtfeld, Pflichtfeld, Pflichtfeld ... das muss doch auffallen das hier was nicht stimmt.

Wenn das Edit1-Feld z.B. leer wäre dann wäre der Inhalt auch nicht korrekt.
Also müsste man auch noch prüfen, ob die Felder leer sind.

Und da gibt es etwas ganz Geniales - Funktionen.
Einmal programmiert kann man Funktionen so oft verwenden wie man will.

Delphi-Quellcode:

function EditFeldOk(const Text:string):Boolean;
begin
  Result := (Text <> 'Pflichtfeld') and (Text <>);
end;
...
      if not (EditFeldOk(Edit1.Text) and EditFeldOk(Edit2.Text) and
        EditFeldOk(Edit3.Text)) then
      begin
        showmessage('Pflichtfelder ausfüllen');

[himitsu]

Anstatt EditFeldOk kannst du natürlich auch TryStrToFloat verwenden, denn damit prüft man auch gleich, ob eine "gültige" Zahl im Edit drinsteht.

Denn mit diesem EditFeldOk wäre z.B. auch 'Pflichtfel' (ohne d), sowie '123,4,789' total "OK".

[Dyami]

Hallo,

ich habe ein weiteres Problem.
Ich möchte in meinem Edit2.text alle Leerzeichen ignoriert bekommen. Aber ich weiß nicht, wie ich das beim Char machen soll.

Delphi-Quellcode:

var
  i: integer;
  r_Zahl1: real;
  r_Zahl2: real;
  r_zahl3: real;
  r_erg: real;
  S_zeichen: char;
  s_text: string;
begin
  s_text := Edit2.Text;
  for i := 1 to length(s_text) do
  begin
    if s_text[i] = ' ' then
    begin
      s_text := trim(s_text);
    end

Zuweisung

Delphi-Quellcode:

 begin
        r_Zahl1 := strtofloat(Edit1.Text);
        r_Zahl2 := strtofloat(Edit3.Text);
        s_text := Edit2.Text;
        S_zeichen := s_text[1];

Danke schon einmal für die Hilfe

[Volker Z.]

Hallo,

aus der OH:

Zitat:

Trim entfernt alle am Anfang und Ende des mit S angegebenen Strings vorhandenen Leer- und Steuerzeichen.

Demnach wird Dir die for-Schleife wenig bringen.

Du könntest es mittels einer while-Schleife und Delete (s_text, i, 1) machen oder Du siehst Dir in der OH mal die Funktionen StringReplace, ReplaceStr bzw. ReplaceText an.


Gruß

[Amateurprofi]

Zitat von Dyami:

Hallo,

ich habe ein weiteres Problem.
Ich möchte in meinem Edit2.text alle Leerzeichen ignoriert bekommen. Aber ich weiß nicht, wie ich das beim Char machen soll.

So:

Delphi-Quellcode:

var S:String; I,J:Integer;
begin
   S:=Edit2.Text;
   J:=0;
   for I:=1 to Length(S) do
      if S[I]<>' ' then begin
         Inc(J);
         S[J]:=S[I];
      end;
   SetLength(S,J);