char array umdrehen bzw string rückwerts ausgeben

[nevermore2k]

hi, ich habe in c eine Funktion mal gehabt die, die den Inhalt von einem Char Array ( String ) Rückwerts wieder ausgegeben hat. Da ich in Pascal echt noch nicht so bewandert bin. Wie würde das denn ungefähr aussehen können ?

Das wäre das beispiel in C.

Code: Alles auswählen

char *strrevers(char *input) {

  static char output[1024];
  char *i, *o;

  // pointer den adressen zuweisen
  i = input;
  o = output;

  // pointer durchlaufen lassen bis \n
  while (*i++ != '\n')
    ;
  i--;

  // die addresse runterzählen bis ursprung
  while (i >= input)

    // inhalt in o kopieren

    *o++ = *i--;
  // abschluss inzufügen
  *o = '\0';

  return(output);
}

[Winni]

Hallo!

Hier ist Pascal:

1. Schmeiss für solch einfache Aufgabe mal Deine Pointer weg.
2. Hier darfst Du Dich nicht auf #0 verlassen. Der darf auch mitten in einem Pascal-String stehen.

Und dann nehme ich mal an, dass Du auch Zeichen ausserhalb des ASCII Raums benutzen möchtest, also UTF8-Chars. Here we go:

Code: Alles auswählen

Uses ......., Dialogs, LazUTF8;

procedure MirroString(s : string);
var outString : string= '';
       i : integer;

begin
for i := UTF8Length(s) downto 1 do
               outString := OutString + UTF8Copy (s,i,1);
showMessage (OutString);
end;

Willkommen in der Pascal-Welt!

Winni

[nevermore2k]

uhh nice danke dir

[six1]

vielleicht auch interessant: reversestring

[theo]

vielleicht auch interessant: reversestring

Oder dann gleich UTF8ReverseString: https://lazarus-ccr.sourceforge.io/docs ... tring.html

[nevermore2k]

danke euch

[six1]

vielleicht auch interessant: reversestring

Oder dann gleich UTF8ReverseString: https://lazarus-ccr.sourceforge.io/docs ... tring.html

...warum habe ich nur nach reversestringutf8 gesucht?

[Winni]

vielleicht auch interessant: reversestring

Oder dann gleich UTF8ReverseString: https://lazarus-ccr.sourceforge.io/docs ... tring.html

...warum habe ich nur nach reversestringutf8 gesucht?

Hi!

Was es nicht alles gibt!

Und dann wundert man sich, warum die Units alle so fett werden!

Winni

PS.: Gutes Wort zum Testen: Reliefpfeiler

[BeniBela]

Sowas habe ich letztens auch programmiert: https://github.com/benibela/bbutils/blo ... 2368-L2392

[nevermore2k]

auch schön zu sehen dein code