---

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

---

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

---

> 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

---

Havd sker, hvis du sletter

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

?

--
Jens Axel Søgaard

---

> 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