Ich habe folgende Formel:
function myreplace(text:string;alt:string;neu:string): string; Wie muss ich weiter machen, dass ich folgendes einsetzen kann, damit Umlaute ersetzt werden:

markieren

Delphi-Quellcode:

 w:= myreplace(w,'Ä','Ae');
 w:= myreplace(w,'Ö','Oe');
 w:= myreplace(w,'Ü','Ue');
 W:= myreplace(w,'ä','ae');
 W:= myreplace(w,'ö','oe');
 W:= myreplace(w,'ü','ue');
 W:= myreplace(w,'ß','ss');

Wie muss ich die Formel programmieren?

Danke im Voraus.

Du könntest einfach StringReplace benutzen.

Zitat von baumina:

Du könntest einfach StringReplace benutzen.

Darf er scheinbar nicht

Zitat von Phillip0405:

Wie muss ich die Formel programmieren?

Danke im Voraus.

Generell wir hier niemand deine Hausaufgaben machen. (EDIT: Scheinbar doch.. aber zum Glück ist das keine besonders gute Lösung)
Geh das Problem doch mal langsam und logisch an und überleg dir was man machen muss um einen Text durch einen anderen zu ersetzen.
Und nachdem du dir Gedanken gemacht hast fängst du an zu programmieren. Der Code in deinem anderen Thread sieht aus als hättest du ohne groß nachzudenken grob über den Daumen gepeilt einfach mal Code geschrieben und gehofft dass es so funktioniert.

Wenn du dann zumindest mal das Grundgerüst hast und vom Prinzip her weißt was du tun musst, können wir dich auf ein paar letzte Kleinigkeiten aufmerksam machen.

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;

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

Zitat von Phillip0405:

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

Wird so nur leider nicht klappen für function myreplace(text:string;alt:string;neu:string): string;
Wirst du spätestens bei einem Aufruf wie myreplace('Hallo Welt', 'Welt', 'Phillip') merken

Zitat von Neutral General:

Zitat von baumina:

Du könntest einfach StringReplace benutzen.

Darf er scheinbar nicht

Zitat von Phillip0405:

Wie muss ich die Formel programmieren?

Danke im Voraus.

Generell wir hier niemand deine Hausaufgaben machen. (EDIT: Scheinbar doch.. aber zum Glück ist das keine besonders gute Lösung)
Geh das Problem doch mal langsam und logisch an und überleg dir was man machen muss um einen Text durch einen anderen zu ersetzen.
Und nachdem du dir Gedanken gemacht hast fängst du an zu programmieren. Der Code in deinem anderen Thread sieht aus als hättest du ohne groß nachzudenken grob über den Daumen gepeilt einfach mal Code geschrieben und gehofft dass es so funktioniert.

Wenn du dann zumindest mal das Grundgerüst hast und vom Prinzip her weißt was du tun musst, können wir dich auf ein paar letzte Kleinigkeiten aufmerksam machen.

Ich habe noch keine Ahnung davon(bin erst seit Freitag dabei). Aber trotzdem danke!

Zitat von Neutral General:

Zitat von Phillip0405:

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

Wird so nur leider nicht klappen für function myreplace(text:string;alt:string;neu:string): string;

Was für eine Schleife muss man benutzen?

Zitat von Phillip0405:

Was für eine Schleife muss man benutzen?

Denk nach. Du hast von Jumpy ja schon einen großen Teil Denkarbeit abgenommen bekommen.

Zitat von Phillip0405:

Ich habe noch keine Ahnung davon(bin erst seit Freitag dabei). Aber trotzdem danke!

Aber es ist ja scheinbar für die Schule und dann habt ihr auch genug gelernt um die Aufgabe zu erfüllen.
Du kennst ja wie man in dem anderen Thread sieht schon Funktionen um Strings zu bearbeiten. Wie Schleifen funktionieren weißt du spätestens nach Jumpys Beitrag.

Zitat von Neutral General:

Zitat von Phillip0405:

Was für eine Schleife muss man benutzen?

Denk nach. Du hast von Jumpy ja schon einen großen Teil Denkarbeit abgenommen bekommen.

Zitat von Phillip0405:

Ich habe noch keine Ahnung davon(bin erst seit Freitag dabei). Aber trotzdem danke!

Aber es ist ja scheinbar für die Schule und dann habt ihr auch genug gelernt um die Aufgabe zu erfüllen.
Du kennst ja wie man in dem anderen Thread sieht schon Funktionen um Strings zu bearbeiten. Wie Schleifen funktionieren weißt du spätestens nach Jumpys Beitrag.

Ich erarbeite es selber.