Znak warunku jako zmienna

0

mam jedno pytanko związane z delphi
chce zrobić warunek if (costam znak 200) then
costam to liczba
znak ma być pobierany z comboboxa
i nie wiem jak to wpisać :/ jak dać żeby w warunku była zmienna (o nazwie znak) jako operator

0

Sposobów jest kilka. Można się pobawić w osobne funkcje+typ proceduralny, drabinkę if..then ale to Ci powinno starczyć abyś zrozumiał zasadę.

const
  CF_LESS = 0;
  CF_EQUAL = 1;
  CF_LESS_OR_EQUAL = 2;

function CompareFunc(const ValA, ValB :Word; const CompareSign :Integer) :Boolean;
begin
  case CompareSign of
    CF_LESS          :Result := ValA < ValB;
    CF_EQUAL         :Result := ValA = ValB;
    CF_LESS_OR_EQUAL :Result := ValA <= ValB;
  end;
end;
// wywołanie:
// itemy CBoxa to kolejno: <, =, <=

if CompareFunc(costam, 200, ComboBox.ItemIndex) then ZrobCos();
0

No czyli żeby dodać potem > i >= wystarczy

const
CF_LESS = 0;
CF_EQUAL = 1;
CF_LESS_OR_EQUAL = 2;
CF_BIGER = 3;
CF_BIGER_OR_EQUAL = 4;

function CompareFunc(const ValA, ValB :String; const CompareSign :Integer) :Boolean;
begin
case CompareSign of
CF_LESS :Result := ValA < ValB;
CF_EQUAL :Result := ValA = ValB;
CF_LESS_OR_EQUAL :Result := ValA <= ValB;
CF_BIGER :Result := ValA > ValB;
CF_BIGER_OR_EQUAL :Result := ValA >= ValB;
end;
end;

i powinno działać??

0

Tak

0

Dziekowa ^^

1 użytkowników online, w tym zalogowanych: 0, gości: 1