Hallo,
entstschuldige aber das kann so nie gelaufen sein!
Delphi-Quellcode:
type Tfrage = array [1..9] of Integer;
Function isValid(const a:Tfrage):Boolean;
var s1,s2,s3:string;
begin
s1 := a[1]+a[2]+a[3]+a[4];
s2 := a[5]+a[6]+a[7]+a[4];
s3 := inttostr(strtoint(s1)+strtoint(s2));
if length(s3) = 5 then
result := (s3[1] = a[5]) and (s3[2] = a[6]) and (s3[3] = a[8]) and (s3[4] = a[4]) and (s3[5] = a[9])
else
result := false;
end;
Du solltest schon die einfachsten Regeln der Variablen bzw der Typdefinition kennen!
s1, s2 sind als Strings deklariert. Du weist ihnen (den Variablen) aber Integers zu.
Bitte überprüfe das nocheinmal.
result := (s3[1] = a[5]) and (s3[2] = a[6]) and (s3[3] = a[8]) and (s3[4] = a[4]) and (s3[5] = a[9])
Erklär mir doch bitte mal diese Zeile. Vielleicht kann ich was dazulernen.
Grüsse
Rainer