Bagvendt tekst?

Function ReverseText(const s : String) : String;
var
  i : Integer;
begin
  Result := '';
  for i := Length(i) downto 1 do
    Result := Result + s[i]
end;

Jens B

Prøv det her:

function VendTekst(S: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := Length(S) downto 1 do
    Result := Result + S[I];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := VendTekst(Edit1.Text);
end;

:o)

Hvis du bruger Delphi7, så ligger der allerede en ReverseString funktion i StrUtils unit'en.

Ellers er der flere eksempler på http://www.swissdelphicenter.ch/en/showcode.php?id=53, men mon ikke Jens' eksempel virker ganske udemærket ;)

Prøv med denne:
Function Rotate(Teksten: String):String;
var
  x: Integer;
  Temp: String;
begin
  Temp:='';
  for x:=length(Teksten) downto 1 do
    Temp:=Temp+Teksten[x];
  Result:=Temp;
end;

Snowball -> Nej, Jens' eksempel virker ikke:
  for i := Length(i) downto 1 do
;o)

Man skal stå tidligt op for at følge med her :-)

athlon-pascal: Nej, OK. Det kan jeg godt se nu du lige siger det ;)

Jens: Tsk tsk tsk :)

Vi kan da også prøve en løsning, der afviger en anelse fra de allerede postede løsninger, der, med undtagelse af Snowballs forslag og visse defekter ( ;o) ) i nogle versioner, har ret store ligheder:

function VendTekst2(S: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(S) do
    Result := S[I] + Result;
end;

Bare så vi prøver at gøre tingene lidt omvendt (med samme resultat) ;o)

Da du var den første får du point'ene
-da jeg kan se at athlon-pascal har svaret næsten lige efter, så hvis du gerne vil have nogle point så bare sig til.

Virkerde Borrisholts kode?

;o)

ja

Er du sikker???
Prøv igen...

ja... skulle jo bare fjerne const i denne linie -> (const s : String)

næ... hmm.. synes bare at det var den jeg brugte
fårk...! vil du have point?

der var jo også en anden fejl som jeg ikke fik rettet... den med for i := Length(i) downto 1 do hvor der skulle være s i stedet for i

stefmeister -> Jeg behøver ikke point - Borrisholt kom bare til at skrive forkert i farten, ellers er vores svar rent funktionsmæssigt identiske :o)

okay...!
Da de lignede hinanden, så har jeg bare ikke tænkt over hvilken en jeg bruge :D)