Delphi Programm: Wort Rückwärts schreiben

Thema durchsuchen

Ansicht

Themen-Optionen

Programm: Wort Rückwärts schreiben

Ein Thema von Xnoow · begonnen am 4. Feb 2004 · letzter Beitrag vom 4. Feb 2004

Vorheriger Beitrag

Nächster Beitrag

MCeddy

(Gast)

n/a Beiträge

Re: Programm: Wort Rückwärts schreiben

4. Feb 2004, 14:08

Hi, das ist eigendlich ganz einfach. Einfach den String Zeichen für Zeichen auseinanderflücken und verkehrtrum mit einer SChleife wieder zusammensetzten

Hier die Procedure dazu, die dir weiterhelfen kann:

markieren

Code:

			PROCEDURE kehre_um (wort: string; VAR neuwort: string);

{kehrt die Buchstabenreihenfolge um}

VAR

  i : integer;

BEGIN

  neuwort := '';

  FOR i := length(wort) DOWNTO 1 DO

    neuwort := neuwort + wort[i]

END; {of kehre um}

viele liebe Grüße

MCeddy02