String umdrehen

[JuiceRob]

Hi,
hab hier einen Auftrag für die Schule aber ich komm kein Stück weiter und bei Google find ich auch nichts.

Wir sollten erst ein Wort umdrehen d.h. aus "Hallo" wird "ollaH".
Mit ReverseString kein Problem.

Jetzt sollen wir aber in einem Satz die Wörter einzeln umdrehen d.h. aus "Hallo wie gehts" wird "ollaH eiw stheg".

Hab jetzt schon bei Google ne weile gesucht aber nichts gefunden was mich weiter bringt.

Ich benutz auch noch Delphi 2005, weil wir das auch in der Schule benutzen...

Schon mal Danke für die Hilfe.

[-187-]

Die ReverseString Funktion ist doch perfekt dafür. Du musst dir zusätzlich eine Schleife bauen die einen TempStr ließt (immer bis zum nächsten Leerzeichen) und diesen einzeln umwandelt.

Wo ist das Problem ?

[JuiceRob]

gibt keins mehr danke trotzdem =)

[-187-]

Hab nochmal ein kleines Bsp aus meinen Übungen ausgekramt. Geht aber mit Sicherheit noch sinnvoller

Delphi-Quellcode:

function StringReverse(S:String):String;
var
  i: Integer;
begin
  Result:='';
  for i:=Length(S) downto 1 do
  Begin
    Result:=Result+Copy(S,i,1);
  end;
end;

function SentenceReverse(S:String):String;
var
  i,Pos1: Integer;
  tmpStr: String;
begin
  Result:='';
  repeat
    Pos1:=Pos(' ',S);
    if Pos1>0 then
      tmpStr:=Copy(S,1,Pos1-1) else
      tmpStr:=S;
    tmpStr:=StringReverse(tmpStr);
    if not (tmpStr=StringReverse(S)) then
      Result:=Result+tmpStr+' ' else
      Result:=Result+tmpStr;
    S:=Copy(S,Pos1+1,Length(S));
  until
    Pos1=0;
end;

[rollstuhlfahrer]

kleine Verbesserung: Result:=Result+Copy(S,i,1); -> Result:=Result + S[i]; .

Bernhard

[Corpsman]

Hätte auch noch ne Variante

Delphi-Quellcode:

Function StringReverse(S: String): String;
Var
  i: Integer;
  c: Char;
Begin
  For i := 1 To length(s) Div 2 Do Begin
    c := s[i];
    s[i] := s[length(s) - i + 1];
    s[length(s) - i + 1] := c;
  End;
  result := s;
End;

[dor557]

Hier mal meinen Senf dazu... Habe das getestet. Ist sicherlich Fähig zu optimieren

Ich benutze immer eine Funktion die sich Explode nennt da ich viel mit arrays arbeite

hier mal mein Code :

Delphi-Quellcode:

  TSTringdynarray = array of String;
var
  Form1: TForm1;
  WechselText : TStringDynArray;

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := AnsiStrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5);
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then Inc(P, SepLen);
  end;
  if Index < ALen then SetLength(Result, Index);
end;

procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
 Edit2.text := '';
  WechselText := Explode(' ',Edit1.text);
  for I := 0 to Length(WechselText) - 1 do
  begin
    WechselText[i] := ReverseString(Wechseltext[i]);
    Edit2.text := Wechseltext[i] + ' ' + Edit2.text;
  end;
end;

Hoffe das ich jetzt nicht deine Hausaufgaben gemacht habe

gruss Sascha