[S]Hilfe -> Funktionen -> z.B. ä in ae & hilfe in hoiolofoeo

[FriFra]

So geht's:

Delphi-Quellcode:

function Huenerize(Wert: string): string;
var
  n: integer;
begin
  Result := Wert;
  for n := Length(Result) downto 2 do
    Result := copy(Result, 1, n - 1) + ' bi ' + copy(Result, n,
      Length(Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := Huenerize(Edit1.Text);
end;

Rückwärts geht's damit:

Delphi-Quellcode:

function DeHuenerize(Wert: string): string;
begin
  Result := StringReplace(Wert, ' bi ', '', [rfReplaceAll]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := DeHuenerize(Edit2.Text);
end;

[Udontknow]

Ne, so geht das doch nicht! Was wird denn wohl aus dem Satz "Lieber bi als nie!", wenn ich ihn durch den Hühnerizer und anschliessend durch den Dehühnerizer jage? :mrgreen:

Cu,
Udontknow

[FriFra]

Doch, so geht das! :evil:

Hast Du es denn überhaupt getestet? NEIN, HAST DU NICHT!!!

"Lieber bi als nie!" -> "L bi i bi e bi b bi e bi r bi bi b bi i bi bi a bi l bi s bi bi n bi i bi e bi !" -> "Lieber bi als nie!"

8) Ich könnte dazu jetzt noch einen bekannten Satz von Peter Nuhr schreiben... ich verkneif es mir aber...

[Udontknow]

Äh richtig... Ist schon zu spät... :stupid:

[Oli_G]

Bin grad in der Schule...
Hier der Code von der Umwandlung von dem Umlaut 'ö':

Code:

 var s,ausgabe: string;
 var i: integer;

procedure TForm1.Button1Click(Sender: TObject);

begin
s:=edit1.text;
Edit2.text:='';
ausgabe:='';
for i:=1 to length(s) do
  begin
  if s[i]='ö' then
    begin
    ausgabe:=ausgabe+'oe'
    end
    else
    ausgabe:=ausgabe+s[i];
  end;

edit2.text:=ausgabe;
end;

end.