"Uffe Kousgaard" <oh@no.no> skrev i en meddelelse
news:43cac4df$0$38714$edfadb0f@dread12.news.tele.dk...
> "Michael Sørensen" <ms1 (a) skindbeni . DANMARK> wrote in message
> news:43cac293$0$4820>
>> Hvordan kan det lade sig gøre at arbejde med editbokse fra Form1 i
>> unit'en
>> Beregning?
>
> Ved at tilføje navnet på det unit med form1 under uses i "Beregning". For
> at
> undgår cirkulære referencer kan du blive nødt til at skrive dette EFTER
> implementation. (Der kan godt være 2 uses sektioner i et unit - under
> interface og under implementation).
Dette virker desværre IKKE ved mig.
Et eller andet sted, så gør det jo nok, men jeg gør det forkert. Og jeg
mener trods alt ikke, at jeg er (så) dum
Herunder er mine 2 unit - en tilhørende min form og en, der står alene til
beregning.
Kan jeg få det skåret ud i pap, hvad jeg gør forkert her.
*** Unit'en Beregning ***
---
unit Beregning;
interface
implementation
uses Indtastning;
Procedure Beregn;
Resultat: integer;
Begin
Resultat:= StrToInt(FormIndtastning.edtTal1.Text) +
StrToInt(FormIndtastning.edtTal2.Text);
End;
End.
---
***Herunder ses unit'en tilhørende formen FormIndtastning.***
---
unit Indtastning;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TformKI = class(TForm)
edtTal1 TEdit;
edtTal2: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
formIndtastning: TformIndtastning;
implementation
{$R *.dfm}
end.
---
Jeg får i øvrigt fejlen undeclared identifier StrToInt, når jeg prøver at
compilere og jeg får rød bølgestreg under IntToStr, men jeg må indrømme, at
jeg mener, at jeg gør det rigtigt.