Ich möchte hier mal mein Abschlußprogramm aus Info vorstellen: Schaut es euch einfach mal an und posted mir wie ihr es findet. 2 Probleme hab ich z.Z. noch wobei ich nicht weiß wie ich sie beheben soll... vielleicht fällt euch ja was ein.
1. Wenn man beabsichtigt Fehler bei der Eingabe eingibt und diese Prüfen lässt werden 2 Fehlermeldungen ausgegeben!
2. Im Fall "sws" wird einfach die Art des Dreiecks nicht ausgerechnet od. ausgegeben!

danke schoma... david

Vorab eine Frage: Hast Du es bereits abgegeben oder wirst Du es noch abgeben?

Ich muss es noch abgeben, da es aber komplexer ist als diese meiner Mitschüler, muss ich morgen mochmal zu meinen Infolehrer damit er mir nochmal nen paar Fehler ausmerzt...

Moin moin

zu 1.: In einen Memo nur Zahlen zulassen

Dann kannst du dir schonmal die wilden try...except Blöcke sparen

schönen Gruß

sam

oder einfach ein SpinEdit nehmen!

Zitat von lurch:

Ich muss es noch abgeben, da es aber komplexer ist als diese meiner Mitschüler, muss ich morgen mochmal zu meinen Infolehrer damit er mir nochmal nen paar Fehler ausmerzt...

Wenn das schon komplex ist... Letztendlich hast du ja nur a + b programmiert. Keine großartigen Kontrollstrukturen (Schleifen etc.) nichts.

Es ist auch mein erstes Jahr Info gewesen und wir haben nen total komischen Info-Lehrer der bloß vorraussetzt das unser Infoprogramm 70 Zeilenlang ist (Ohne deklaration...)

Zitat von BluesKid:

zu 1.: In einen Memo nur Zahlen zulassen

Eine wohl bessere Lösung, als if not key in... wäre folgende:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(
    Memo1.Handle,
    GWL_STYLE,
    GetWindowLong(
      Memo1.Handle,
      GWL_STYLE
    ) or ES_NUMBER
  );
end;

MfG Pr0g

Hast du das getestet? So bviel ich weiß, geht das bei Memos nicht.

Zitat von Luckie:

Hast du das getestet? So bviel ich weiß, geht das bei Memos nicht.

Doch, es geht.