Frage zum Substring in Delphi

[Jumpy]

Das ist aber ein schönes Beispiel, wo man es sich mit einer Schleife und den Funktionen mod und div ersparen kann, mit den vielen Variablen zu arbeiten. Das Folgende ist nur hingetippt und wahrscheinlich nicht so ganz richtig mit den mods und divs, aber das Prinzip sollte so gehen.

Delphi-Quellcode:

var nr:String;
    i:integer;
    temp:integer;
    summe:integer;
    ergebnis:integer; //oder String
begin
nr=EditNr.Text;
if Length(nr)<>8 then
  showmessage('Nicht 8 Zeichen!')
else
  begin
  for i:=1 to 8 do
    begin
    if not IsNumeric(nr[i]) then
      showmessage('Eingabe enthält nicht numerische Zeichen')
    else
      begin
      temp:=StrToInt(nr[i]) ;
      temp:=temp*(2-(i mod 2));
      temp:=(temp mod 10) + (temp div 10);
      summe:=summe+temp; 
      end;
    end;
  ergebnis:=(summe mod 10);
  //oder falls als Gesamtstring: ergebnis=nr+IntToStr(summe mod 10);
  end;
end;

Noch besser wäre natürlich die Prüfziffernberechnung in eine eigene Funktion zu packen, die Prüfung, ob die Eingabe brauchbar ist in eine andere, usw.

[DeddyH]

Das mit den einzelnen Funktionen sehe ich genauso. Ungetesteter Vorschlag:

Delphi-Quellcode:

function ValidNumber(const s: string; out IntVal: integer): Boolean;
begin
  Result := (Length(s) = 8) and TryStrToInt(s, IntVal);
  if Result then
    Result := IntVal > 0;
end;

function CharToIntValue(c: char; DoubleValue: Boolean): integer;
begin
  Result := StrToInt(c);
  if DoubleValue then
    begin
      Result := Result * 2;
      if Result > 9 then
        Result := Result mod 10 + 1;
    end;
end;

function CalculateChecksum(const InStr: string; out CheckSum: integer): Boolean;
var
  IntVal, i: integer;
begin
  CheckSum := 0;
  Result := ValidNumber(InStr, IntVal);
  if Result then
    begin
      IntVal := IntVal div 10 * 10 + 10;
      for i := 1 to Length(InStr) do
        inc(CheckSum, CharToIntValue(InStr[i], not Odd(i)));
      CheckSum := IntVal - CheckSum;
    end;
end;

(* Im ButtonClick bleibt dann noch das hier übrig *)
procedure TForm1.Button1Click(Sender: TObject);
var
  CheckSum: integer;
begin
  if not CalculateChecksum(Edit1.Text, CheckSum) then
    ShowMessage('Ungültige Eingabe: nur 8-stellige Zahlen erlaubt')
  else
    ShowMessage(IntToStr(CheckSum));
end;