/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408849
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.