Val und zuweisung

[EWeiss]

Ich habe einen string den ich mit VAL konvertieren muss.

Delphi-Quellcode:

var
 sEnable: string
begin
  sEnable := '"2"""';
  VAL(... ??
end;

Den möchte ich jetzt so auslegen das als Ergebnis die 2 herauskommt..
Wie geht's?

Komme mit der Funktion nicht so richtig klar.

EDIT:
Habe es selbst herausgefunden

Delphi-Quellcode:

var
 sEnable: string
 int: Integer;
 ErrorPos: Integer;
begin
  sEnable := '"2"""';
  VAL(sEnable, Int, Errorpos);
  if errorPos = 0 then
    if sEnable = '2' then // RecycleBin
    begin
      EnableFlag := StrToInt(sEnable);
    end;
end;

Nach Val ist sEnable = "2"

gruss

[gammatester]

Zitat von EWeiss:

Ich habe einen string den ich mit VAL konvertieren muss.

Delphi-Quellcode:

var
 sEnable: string
begin
  sEnable := '"2"""';
  VAL(... ??
end;

Schau mal in die Hilfe: S is a string-type expression; it must be a sequence of characters that form a signed real number.
Ich sehe nicht, wie "2""" eine Zahl sein soll.

[EWeiss]

Zitat von gammatester:

Zitat von EWeiss:

Ich habe einen string den ich mit VAL konvertieren muss.

Delphi-Quellcode:

var
 sEnable: string
begin
  sEnable := '"2"""';
  VAL(... ??
end;

Schau mal in die Hilfe: S is a string-type expression; it must be a sequence of characters that form a signed real number.
Ich sehe nicht, wie "2""" eine Zahl sein soll.

Siehe mein Edit..

gruss

[hoika]

Hallo,
wenn das Format bekannt ist, geht es auch anders

sEnable='"2"""'
StringReplace(sEnable,'"','',[rfReplaceAll]
sEnable='2'

TryStrToInt
int=2

[EWeiss]

Zitat von hoika:

Hallo,
wenn das Format bekannt ist, geht es auch anders

sEnable='"2"""'
StringReplace(sEnable,'"','',[rfReplaceAll]
sEnable='2'

TryStrToInt
int=2

Ja Danke aber das ist nicht bekannt..
Keine Ahnung was der User da in die Textdatei hinein schreibt.
Wenn es falsch ist dann kracht's.

gruss

[Frickler]

Zitat von EWeiss:

Keine Ahnung was der User da in die Textdatei hinein schreibt.
Wenn es falsch ist dann kracht's.
gruss

Ich nutze für sowas folgende Funktion:

Delphi-Quellcode:

{ Konvertiert den String in eine Zahl, überliest dabei andere Buchstaben.
  So liefert SloppyStrToIntDef('Länge: 15 cm', 0) als Ergebnis die Zahl 15.
  Unterbrochene Ziffernfolgen werden allerdings nicht zusammengefügt, so dass
  SloppyStrToIntDef('1 2 3 4 5', 0) die Zahl 1 liefert und nicht etwa 12345.
}
function SloppyStrToIntDef(const s: string; default: integer): integer;
var
  i: integer;
  tmp: string;
  flag: (vorZahl, inZahl, nachZahl);
begin
  tmp := ''; flag := vorZahl;
  for i:=1 to Length(s) do begin
    if CharInSet(s[i], ['0'..'9']) then begin
      if flag = vorZahl then begin
        flag := inZahl;
        tmp := tmp + s[i];
      end
      else if flag = inZahl then
        tmp := tmp + s[i]
      else
        break;
    end
    else begin
      if flag = inZahl then
        flag := nachZahl
    end
  end;
  result := StrToIntDef(tmp, default);
end;

[Amateurprofi]

Zitat von EWeiss:

Ich habe einen string den ich mit VAL konvertieren muss.

Delphi-Quellcode:

var
 sEnable: string
begin
  sEnable := '"2"""';
  VAL(... ??
end;

Den möchte ich jetzt so auslegen das als Ergebnis die 2 herauskommt..
Wie geht's?

Komme mit der Funktion nicht so richtig klar.

EDIT:
Habe es selbst herausgefunden

Delphi-Quellcode:

var
 sEnable: string
 int: Integer;
 ErrorPos: Integer;
begin
  sEnable := '"2"""';
  VAL(sEnable, Int, Errorpos);
  if errorPos = 0 then
    if sEnable = '2' then // RecycleBin
    begin
      EnableFlag := StrToInt(sEnable);
    end;
end;

Nach Val ist sEnable = "2"

gruss

@EWeiss:

Ich glaube nicht, dass bei dem von dir gezeigten Beispiel sEnable nach dem VAL '2' ist, weil VAL den übergebenen String nicht verändert (S ist kein var Parameter).
Und auspropieren zeigte, zumindest bei mir, dass sEnable nach dem VAL tatsächlich unverändert ist.