Endnu en Lommeregner

Fejlen du får kan afhjlæpes ved at bruge IntToStr, som kræver at du benytter SysUtils.

Dette skyldes at et edit field kræver en string som standard. Du forsøger at give den en integer.

Hvis jeg har forstået dig rigtigt, vil du bruge edit til at vise tasterne fra 1-9. Alle kan skrive i et edit field, hvilket betyder at brugerne kan rette i dine taster. Måske du skulle bruge en TButton i stedet!

Mvh.,

Jakob Justsen

Jeg er lige gået igang med at konstruere en lommeregner.
Men er stødt på et problem.
Meningen er at den skal fungere som en standard lommeregner, altså at man ved hjælp af knapper fra 1-9 indtaster de tal man vil arbejde med. Men hvordan gør man det ?

Jeg læste i en anden post dette:
"
For at få tal tilføjet i edit feltet (lige nu edit1) skriv

edit1.text := edit1.text + 1; //tilføjer et 1 tal i edit1
"

Men når jeg gør det for jeg følgende fejl: Incompatible types: 'String' and 'Integer'

Help plz ~

Fejlen du får kan afhjlæpes ved at bruge IntToStr, som kræver at du benytter SysUtils.

Eller man kan nøjes med at sige edit1.text := edit1.text + '1'; i dette her tilfælde.

Så blev lommeregneren færdig, eller næsten færdig.
Mangler lige at fixe sådan at man ikke kan dividere med 0.
Hvordan laver man et "forskelligt fra" tegn i Delphi.
Så jeg kan skrive noget i retningen af tal"forskelligt fra"0

= Lig med.
< Mindre end.
> Større end
<> Forskellig fra.

Emil Melgaard
emil.melgaard@private.dk[Redigeret d. 19/09-02 22:51:35 af Emil]

Thanks

Well... her kommer så lige et spørgsmål til. Hvordan gør jeg sådan at man kan bruge numpad tallene til at skrive tal ind i lommeregneren. Pt. Skal man med musen trykke på 10 små knapper fra 0-9

du skal sige i onKeyDown på din form (husk at sætte KeyPreview til True):

if Key = VK_*** then Knap*.Click;

Hvis VK_*** er: Er der trykket på:
VK_NUMPAD0 0
VK_NUMPAD1 1
VK_NUMPAD2 2
VK_NUMPAD3 3
VK_NUMPAD4 4
VK_NUMPAD5 5
VK_NUMPAD6 6
VK_NUMPAD7 7
VK_NUMPAD8 8
VK_NUMPAD9 9

VK_MULTIPLY Gange (*)
VK_ADD Plus (+)
VK_SEPARATOR ?
VK_SUBTRACT Minus (-)
VK_DECIMAL Komma (,)
VK_DIVIDE Divider (/)

VK_RETURN Enter (begge to)

Emil Melgaard
emil.melgaard@private.dk