irgendwo mache ich was falsch
beim aufrufen der funktion gibt es folgende fehlermeldung
[Fehler] Unit1.pas(38): Operator ist auf diesen Operandentyp nicht anwendbar
in zeile 38 steht
for Ch in Zahl do begin
Delphi-Quellcode:
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
i := LongMod('210501700012345678131400',97)
end;
function TForm1.LongMod(const Zahl: string; Divisor: Integer): Integer;
var
Ch: Char;
begin
Result := 0;
for Ch in Zahl do begin
Result := (10*Result + Ord(Ch) - Ord('0')) mod Divisor;
end;
end;
was mache ich falsch
