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?