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
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 ^^