kontrol etmek için alternatif, bir değerin

setinde olup olmadığını Aşağıdaki koda sahibim. Çirkin görünüyor, eğer değer aşağıdaki değere eşitse, o zaman bir şeyler yapın.kontrol etmek için alternatif, bir değerin

var 
    Value: Word; 
begin 
    Value := 30000; 
    if (Value = 30000) or (Value = 40000) or (Value = 1) then 
    do_something; 
end;

ben şöyle kodu refactor istiyorum:

var 
    Value: Word; 
begin 
    Value := 30000; 
    if (Value in [1, 30000, 40000]) then // Does not work 
    do_something; 
end;

Ancak refactored kodu çalışmaz. Delphi'de geçerli bir kümenin yalnızca tip baytlı öğeleri kabul ettiğini varsayalım. Orijinal kodumu yeniden düzenlemek için iyi bir alternatif varsa (vakayı kullanmanın yanında)?

kaynak

2010-06-07 stanleyxu2005

Böyle bir şey düşünüyorum?

case value of 
    1, 30000, 40000: do_somthing 
end;

kaynak

2010-06-07 07:55:28

Teşekkürler, ama sorumu belirttiğim gibi başka bir alternatif istiyorum. Anahtarı kullanmanız nedeniyle ... böyle bir mantık için durum normal değil – stanleyxu2005

@ stanleyxu2005. Muhtemelen en verimli. Ve, bunun yanı sıra, böyle bir şey yazmaya başladığınızda, eğer [.] 'De bir değer [..]' da bir değer varsa, başka bir şey eklemeniz gerekebilir. blabla yapmak blablabla yapmak. Böyle bir durumda, durum bariz bir seçimdir. –

Bir gün bekledikten sonra cevap bekliyorum, kabul ediyorum ki ... durum en kabul edilebilir çözüm. – stanleyxu2005

Nasıl bir açık dizi kullanmaya ne dersiniz?

function ValueIn(Value: Integer; const Values: array of Integer): Boolean; 
var 
    I: Integer; 
begin 
    Result := False; 
    for I := Low(Values) to High(Values) do 
    if Value = Values[I] then 
    begin 
     Result := True; 
     Break; 
    end; 
end;

Örnek (sözde kodu): Daha büyük bit kümeleri için sınıfı vardır

var 
    Value: Integer; 
begin 
    Value := ...; 
    if ValueIn(Value, [30000, 40000, 1]) then 
    ... 
end;

kaynak

2010-06-07 09:28:29

+1, Güzel olan, yeniden kullanılabilirliği ve temizliği severim. –

, Classes.TBits bkz.

Sabit ifadeleri kolayca yapmazken, diğer bazı durumlarda yararlı olabilir.

kaynak

2010-06-07 11:42:24

kontrol etmek için alternatif, bir değerin

cevap

İlgili konular