Ein Zeichen durch eine Leerstelle ersetzen

[Thorben86]

[OT] Das wird der Frau Moritz aber gar nicht gefallen, wenn du einen unbekannten Aufruf benutzt [OT]

Also ich geb dir den Tipp, dass du einfach noch ne neue String Variable nimmst, die du am anfang immer auf '' (also leer) setzt. Nun fügst du diesem text , falls "Text[Index] = Zeichen" ist, ein leerzeichen hinzu, anderenfalls einfach "Text[Index]".
@ Alle die sich darüber wundern: unsere Lehrerin hat nen Knall und keine Ahnung von der Materie
€dit: @MathiasSimmack: So besser. Du hast aber ansprüche.

Delphi-Quellcode:

{***** zeichen durch leerzeichen ersetzen *****}
function aendern(Text: String; Zeichen: Char): String;
Var Index: Shortint;

    text_neu:string;
begin
 text_neu:='';
 For Index := 1 TO Length(Text) Do
  If Text[Index] = Zeichen Then
    text_neu:=text_neu+' '
    else
   text_neu:=text_neu+text[index];

   result:=text_neu;
end;

//Der Aufruf
procedure TFrmString.b_ersetzen1Click(Sender: TObject);
Var  Text: String;
     Zeichen,ersatzzeichen: Char;
begin
 Einlesen(Text, Zeichen,ersatzzeichen);
 Ausgeben(aendern(Text, Zeichen));
end;