Thema: Delphi Val und zuweisung

Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#8

AW: Val und zuweisung

  Alt 9. Mai 2017, 09:01
Zitat:
Ich glaube nicht, dass bei dem von dir gezeigten Beispiel sEnable nach dem VAL '2' ist
Doch VAL verändert den.

Delphi-Quellcode:
            sEnable := Trim(ParseThis(sBF, ',', 5));
            if Length(sEnable) = 0 then
              EnableFlag := 1
            else
              VAL(sEnable, Int, Errorpos);

            if Errorpos = 0 then
              EnableFlag := StrToInt(sEnable);

            if EnableFlag = 2 then // RecycleBin
            begin
              sUseThumb := ExtractFilePath(sUseThumb);
              if SHGetRecycleBinCount > 0 then
              begin
                sUseThumb := sUseThumb + 'RecycleBinFull.png';
                gp.RecycleBinFull := true;
              end
              else
              begin
                sUseThumb := sUseThumb + 'RecycleBinEmpty.png';
                gp.RecycleBinFull := false;
              end;
            end;
Wenn sEnable > 0 ist dann wird über VAL sEnable verändert
und zwar so wie gezeigt von '"2"""' zu '2'

OK.. Muss jetzt in die Kiste! Werde das nochmal überdenken.
Zu viel Probleme im Moment.
Danke.


gruss

Geändert von EWeiss ( 9. Mai 2017 um 09:11 Uhr)
  Mit Zitat antworten Zitat