Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Phillip0405**

Wenn du Replace nicht benutzen kann, ist der Sinn der Aufgabe wohl etwas mit einer Schleife zu machen. Dann könnte es so aussehen:

Delphi-Quellcode:

			Result:='';

for i:=1 to Length(text) do

  begin

  if text[i]=alt then

    Result:=Result+neu

  else

    Result:=Result+text[i];

  end;

Danke

Phillip0405 Registriert seit: 25. Jan 2016 Ort: NRW 24 Beiträge Delphi XE3 Professional	#5 AW: Replace 26. Jan 2016, 09:49 Zitat von Jumpy: Wenn du Replace nicht benutzen kann, ist der Sinn der Aufgabe wohl etwas mit einer Schleife zu machen. Dann könnte es so aussehen: markieren Delphi-Quellcode: Result:=''; for i:=1 to Length(text) do begin if text[i]=alt then Result:=Result+neu else Result:=Result+text[i]; end; Danke P.B.
	Zitat