Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Frage zum Substring in Delphi

    Delphi
    by DeddyH, 10. Dez 2013
  Das mit den einzelnen Funktionen sehe ich genauso. Ungetesteter Vorschlag:
  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
• Forum: Object-Pascal / Delphi-Language

  AW: Frage zum Substring in Delphi

    Delphi
    by DeddyH, 10. Dez 2013
  Benutze doch bitte die Delphi-Tags (das ist die "Helm"-Schaltfläche im Beitragseditor), dann ist der Code besser zu lesen. Auf den ersten Blick fällt mir schon einmal ein fehlender begin-end-Block nach der Längenprüfung auf, so dass die späteren StrToInt-Aufrufe auch bei kürzeren Strings ausgeführt werden.
• Forum: Object-Pascal / Delphi-Language

  AW: Frage zum Substring in Delphi

    Delphi
    by DeddyH, 5. Dez 2013
  4 (eigentlich ja 5, gell TBx? ;)) Antworten innerhalb von 2 Minuten. Ist das neuer Rekord?
  
  Und noch eine mehr *g*
• Forum: Object-Pascal / Delphi-Language

  AW: Frage zum Substring in Delphi

    Delphi
    by DeddyH, 5. Dez 2013
  String ist keine Klasse und verfügt daher nicht über eine Methode SubString. Du kannst entweder die Copy()-Funktion verwenden oder direkt indiziert auf einzelne Zeichen des Strings zugreifen.
  var
  NR1: String;
  ...
  NR1 := Copy(PNR, 1, 1);
  
  (* alternativ *)
  var
  NR1: Char;
  ...