---

Hej

Hej

Hvad gør man for at programmet vil acceptere et procedure kald til en
procedure der ligger længere nede i programmet?

Jeg har lave følgende procedure, hvad gør jeg, for at den kan finde
variablen *indtastning.text*

procedure skriv(txt:string;adr:integer);
var
x:integer;
fil:file of char;
begin
assignfile(fil,pchar(indtastning.text+'.s02'));
reset(fil);
seek(fil,adr);
for x:=1 to length(txt) do
begin
write(fil,txt[x]);
end;
close(fil);
end;


--
Automatik Mekaniker
Calle

---

> Hvad gør man for at programmet vil acceptere et procedure kald til en
> procedure der ligger længere nede i programmet?

Flytter proceduren højere op i koden. En procedure skal altid være højere
oppe end procedurekaldet.

> Jeg har lave følgende procedure, hvad gør jeg, for at den kan finde
> variablen *indtastning.text*

Ikke forstået?

Daniel

---

"// Overby" <danielFJERNES@FJERNESoverbyhansen.dk> wrote in
news:b1k77f$1f3h$1@news.cybercity.dk:

>> Hvad gør man for at programmet vil acceptere et procedure kald til
>> en procedure der ligger længere nede i programmet?
>
> Flytter proceduren højere op i koden. En procedure skal altid være
> højere oppe end procedurekaldet.

Eller laver en forward deklarering:

procedure MinMetode; forward;

før den kaldes og så selve metoden efter det sted den kaldes.

(kan man egentlig lave den slags i std. pascal eller er det en TP/BP/OP
specialitet??)

>> Jeg har lave følgende procedure, hvad gør jeg, for at den kan finde
>> variablen *indtastning.text*
>
> Ikke forstået?

Måske forstået (og så skal du muligcis heller ikke bruge ovenstående).
Gættet er at vi taler Delphi... dernæst at du gerne vil lave en metode,
der skriver et eller andet i en fil og "et eller andet" er en del af en
Form, fx en TEdit - korrekt?

Så er en løsning at lave metoden i formen's klasse - det vil sige tilføje
følgende linie til klassen

TMinForm = class
private
...
procedure MinMetode; // <-- denne linie
public
...
end;

(placering alt efter hvilken visiblility du ønsker, men sandsynligvis som
private)


dernæst skal klassen skrives som:

proedure TMinForm.MinMetode;
begin
...
MessageBox(MinFormsEdit.Text); // Just as an eksampel
end;


Håber det kan bruges!!...

/Claus

--
Claus Christiansen, <mailto:NOSPAM@unipeople.dk>, leave the adr. as it is
personal: <http://unipeople.dk/~cch>; pythia: <http://www.pythia.dk>
===========================================================--------------
"Computers are useless. They can only give you answers" - Pablo Picasso