/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
function - den vil bare ikke???
Fra : Søren Aaholm Møller


Dato : 07-10-01 16:30

Hej,

Jeg har lige lavet en lille funktion som gerne skulle 'snælgab tsket ne
evirks' (skrive en tekst baglæns)... Hvis jeg kører den som ren kode, virker
den skam fint - så der er ingen hest på isen... Men - nu ville jeg lave det
om til en funktion - men den driller??

Type
function Reverse(original: String): String;

------

function Reverse(original: String): String;
var
lanigiro : string;
i : integer;
o : integer;
begin

original := Form1.Edit1.Text;

o := StrLen(PChar(original)) ;

For i := 1 to o do
begin
lanigiro := original[i] + lanigiro;
end;

Result := lanigiro;

end;

// - Og kalder den med :

procedure TForm1.Button1Click(Sender: TObject);
begin

Form1.Edit2.Text := Reverse(Form1.Edit1.Text);

end;

// ------- Men får fejlen : "Unsatisfied forward or external declaration:
'TForm1.Reverse' - Hvad og hvorfor?

// Søren



 
 
gusse (07-10-2001)
Kommentar
Fra : gusse


Dato : 07-10-01 16:37

eks... :)

Function ReverseString(S: String): String;
var
I: Integer;
begin
For I:=Length(S) downto 1 do
Result:=Result+S[I];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=ReverseString(edit1.text);
end;




"Søren Aaholm Møller" <swdata@image.dk> wrote in message
news:Sx_v7.3546$uQ.448328@news010.worldonline.dk...
> Hej,
>
> Jeg har lige lavet en lille funktion som gerne skulle 'snælgab tsket ne
> evirks' (skrive en tekst baglæns)... Hvis jeg kører den som ren kode,
virker
> den skam fint - så der er ingen hest på isen... Men - nu ville jeg lave
det
> om til en funktion - men den driller??
>
> Type
> function Reverse(original: String): String;
>
> ------
>
> function Reverse(original: String): String;
> var
> lanigiro : string;
> i : integer;
> o : integer;
> begin
>
> original := Form1.Edit1.Text;
>
> o := StrLen(PChar(original)) ;
>
> For i := 1 to o do
> begin
> lanigiro := original[i] + lanigiro;
> end;
>
> Result := lanigiro;
>
> end;
>
> // - Og kalder den med :
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>
> Form1.Edit2.Text := Reverse(Form1.Edit1.Text);
>
> end;
>
> // ------- Men får fejlen : "Unsatisfied forward or external declaration:
> 'TForm1.Reverse' - Hvad og hvorfor?
>
> // Søren
>
>



Søren Aaholm Møller (07-10-2001)
Kommentar
Fra : Søren Aaholm Møller


Dato : 07-10-01 16:52


> eks... :)
>
> Function ReverseString(S: String): String;
> var
> I: Integer;
> begin
> For I:=Length(S) downto 1 do
> Result:=Result+S[I];
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> edit1.text:=ReverseString(edit1.text);
> end;

Jeg kender godt 'ReverseString()', men ville bare lege med funktioner...
Hvad er der desideret FORKERT i den anden jeg selv lavede??

// Søren



Jens Axel Søgaard (07-10-2001)
Kommentar
Fra : Jens Axel Søgaard


Dato : 07-10-01 16:58

Havd sker, hvis du sletter

> Type
> function Reverse(original: String): String;

?

--
Jens Axel Søgaard




Thomas Due (08-10-2001)
Kommentar
Fra : Thomas Due


Dato : 08-10-01 07:25

> Jeg har lige lavet en lille funktion som gerne skulle 'snælgab tsket ne
> evirks' (skrive en tekst baglæns)... Hvis jeg kører den som ren kode, virker
> den skam fint - så der er ingen hest på isen... Men - nu ville jeg lave det
> om til en funktion - men den driller??
[SNIP]
> // ------- Men får fejlen : "Unsatisfied forward or external declaration:
> 'TForm1.Reverse' - Hvad og hvorfor?

Det der sker et at dit program tror at Reverse er en funtion som tilhører
TForm1. Den findes måske endda også som deklaration et eller andet stedet
i deklarationen af TForm1. MEN din implementation tilhører IKKE TForm1. F.eks.
istedet for at skrive

Function Reverse(original : String) : String;

Så prøv at skrive

Function TForm1.Reverse(original : String) : String;

og sørg så samtidig for at den findes i f.eks. TForm1's private sektion.
Det skulle meget gerne virke.

Mvh
Thomas Due

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste