Zeichen überprüfen

[himitsu]

Zitat:

{ 1 - true}
{ 0 - false}

Warum nicht gleich True und False?

Und was macht Y?
Außerdem ist a und b nicht definiert, wenn Y <> 2 ist ... da sollte eigentlich auch der Compiler meckern.

Zitat:

var a,b,c,d,e,f,i : byte;

und bei den vielen ungenutzten Variablen auch.

Ach ja, man kann es mit den begin/end's auch übertreiben ._.

Delphi-Quellcode:

function zahlenthalten(const x: string): Boolean; // überprüfen auf Sythax
var a,b: byte;

begin
  Result := Talse;
  a := Pos('a', x);  // Position des Zeichen 'a'
  b := Pos('b', x);  // Position des Zeichen 'b'
  If (a > 1) and not (x[a - 1] in ['-', ',', '0'..'9']) then 
    showmessage('Bitte 1. Gleichung korrigieren')
  else Result := True;
  if (b > 1) and not (x[b - 1] in ['+', ',', '-', '0'..'0']) then 
    showmessage('Bitte 2. Gleichung korrigieren')
  else Result := True;
end;

Delphi-Quellcode:

gl1:=Edit1.Text;
gl2:=Edit2.Text;

{ Gleichungen umschreiben und in Array eintragen }
if varenthalten(gl1) and zahlenthalten(gl1) then
 gleich1(gl1,t[1,1],t[1,2],t[1,3])
else
  showmessage('Bitte korrigieren Sie die 1. Gleichung!');

if varenthalten(gl2) and zahlenthalten(gl2) then
  gleich1(gl2,t[2,1],t[2,2],t[2,3})
else
  showmessage('Bitte korigieren Sie die 2. Gleichung!');

// PS: varenthalten ist auch mal auf Boolean umgestellt (in den Abfragen)

Das sieht ja schonmal gut aus, aber was läuft denn nicht?