Zeichen überprüfen

[shadow24]

hmm habe es ausprobiert aber es will noch nicht so

Delphi-Quellcode:

{ alle zahlen enthalten ? }
{ 1 - true}
{ 0 - false}

function zahlenthalten(x:string;y:integer) : byte; // überprüfen au7f Sythax
var a,b,c,d,e,f,i : byte;

begin
if y = 2 then
  begin
    zahlenthalten := 0 ;
    a:=Pos('a',x);//position der Zeichen vor dem 'a'
    b:=Pos('b',x);//position der zeichen vor dem 'b'
  end;
 begin
 If (a > 1) and not (x[a - 1] in ['-',',','1','2','3','4','5','6','7','8','9','0'])
 Then showmessage ( 'Bitte 1.Gleichung Korrigieren')
 else zahlenthalten := 1;
 end;

 begin

   if (b > 1) and not (x[b - 1] in ['+',',','-','1','2','3','4','5','6','7','8','9','0'])
   then showmessage ('Bitte 2.Gleichung korrigieren')
   else zahlenthalten := 1;
 end;
end;

das ist der text zur überprüfung


und rufe später in einer anderen unit es wieder auf

Delphi-Quellcode:

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

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

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

nun jetzt weiss ich nicht wo ic heinen fehler habe


PS:
varenthalten ist eine funktion die läuft und überprüft ob die variablen enthalten sind.


bitte um hilfe
danke für bisher und schonmal im voraus ^^