wie mach ich ein hallöchen zu einem h.l.ö.h.n ?

[ch33seburger]

hi

also ich würde gern nen quiz bauen.
und dazu bräuchte ich so ne funktion...

also das jeder zweiter buchstabe zu einem '.' wird. (für die tipps)
allerdings sollten die leerzeichen nicht zu einem '.' gemacht werden sondern ein leerzeichen bleiben ^^

also das quasi: 'Der Hase' zu einem 'D.r H.s.' wird.

würde mich sehr über eine antwort freuen!
danke

[Daniel]

Nach dem Lesen Deines Beitrages ist klar, was Du willst - aber bitte bringe den Titel in eine Form, aus der direkt deutlich wird, was Du machen willst. Danke.

[Luckie]

Hm, also das erste, was mir dazu einfällt währe StringReplace.

[ch33seburger]

hm.. mit einem stringreplace kann ich doch nur bestimmte buchstaben ersetzen oder etwa nicht?
aber ich will doch jeden zweiten buchstaben haben :>

[Chris1986]

Hi
Geh doch einfach mit einer while-Schleife von Zeichen 1 bis length(deinstring).
Z.B. so:

Delphi-Quellcode:

var i: integer;
    deinstring: string;
begin
  i := 2;
  while i <= length(deinstring) do
  begin
    if deinstring[i] <> ' '
      then deinstring[i] := '.';
    inc(i, 2); //Nur jeder 2te Buchstabe soll verändert werden
  end;
end;

MfG
Christian

//Edit: length, nicht count

[gothic_mike]

Zitat von ch33seburger:

hm.. mit einem stringreplace kann ich doch nur bestimmte buchstaben ersetzen oder etwa nicht?
aber ich will doch jeden zweiten buchstaben haben :>

probiers mal so (Nicht getestet, nur mal schnell so hingetippert):

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  DerString: String;
  ZweitesZeichen: Boolean;
  i: integer;
Begin
  DerString := Edit1.Text;
  ZweitesZeichen := False;
  For i := 1 To Length(DerString) Do
    If DerString[i] <> ' ' Then
    Begin
      If ZweitesZeichen Then
      Begin
        DerString[i] := '.';
        ZweitesZeichen := False;
      End
      Else
        ZweitesZeichen := True;
    End
    Else
      ZweitesZeichen := False;

  Edit2.Text := DerString;
End;

[ch33seburger]

danke
hat wunderbar geklappt!

vielen dank

[Magier]

Delphi-Quellcode:

function replacetext(workstring:string):string;
var i, gerade:integer;
s, s2:string;
begin
s:= workstring;
gerade:=1;
for i := 1 to length(s) do begin
if (gerade mod 2 =1) or (s[i]=' ') then s2:=s2+s[i] else s2:=s2+'.';
gerade:=gerade+1;
end;
result :=s2;
end;

//oh, ich sollte öfter f5 drücken...

[Christian Seehase]

Moin Magier,

weil's mir gerade so ins Auge springt:
Die Variablen s2 und gerade kannst Du einsparen:

Delphi-Quellcode:

function replacetext(workstring:string):string;

var 
  i : integer;
  s : string;

begin
  s := workstring;
  for i := 1 to length(s) do begin
    if (i mod 2 = 0) and (s[i] <> ' ') then s[i] := '.';
  end;
  result :=s;
end;

[Chris1986]

@ Christian Seehase:
Warum benutzt du zum Zerpflücken des Strings nicht direkt die Variable "workstring"?

MfG
Christian