Wie schaffe ich eine Stringmischung ohne Zufall

[LingNeu]

Hallo Delphifreunde,
probiere schon eine zeitlang an folgendem Problem.
Möchte zwei Strings mischen:
z.B
String1 := 'Meier'; //der längere String gibt die Ergebnislänge vor
String2 := 'Hans';
LString1 := length(String1);
LString2 := length(String2);


Ergebnis1 := 'MHeainesr';
Ergebnis2 := 'HMaeniser';
Ich weiß einfach nicht, wie ich da anfangen kann.
Wahrscheinlich mit einer for schleife.
Könnte mir jemand bitte einen Hinweis geben. Danke!
ciao
Lingneu

[KodeZwerg]

Was sollte denn rauskommen wenn Input String1 := 'Meier' und String2 := 'Hans' ist ? Gebe da mal ein Beispiel.
function DoJob(Input1, Input2: String): String So wird ja irgendwie Deine Funktion beginnen, also was soll hinten rauskommen?

[LingNeu]

hi Kodezwerg,
es sollen zwei Ergebnisse rauskommen

Ergebnis1 := 'MHeainesr';
Ergebnis2 := 'HMaeniser';

also, Der Name Meier wird gemischt mit Hans
als 1.Buchstabe M (von M eier),
als 2.Buchstabe H (von H ans)
als 3.Buchstabe e (von M e ier)
als 4.Buchstabe a (von H a ns)
als 5.Buchstabe i (von Me i er)
als 6.Buchstabe n (von Ha n s)
als 7.Buchstabe e (von Mei e r)
als 8.Buchstabe s (von Han s)
als 9.Buchstabe r (von Meie r)
Ergebnis: MHeainesr
Das Gleiche sollte dann mit Hans geschehen, er wird gemischt mit Meier
Gruß Lingneu

[KodeZwerg]

Delphi-Quellcode:

function StringMix(Input1, Input2: String): String;
var
  i: Integer;
begin
  for i := 1 to Length(Input1) do
  begin
    Result := Result + Input1[i];
    if Length(Input2) >= i then Result := Result + Input2[i];
  end;
  for i := i to Length(Input2) do
    Result := Result + Input2[i];
end;

Teste das mal, QnD aber sollte das machen was Du möchtest.

edit
Ps: Eine Rückumwandlung ist ausgeschlossen falls das Deine nächste Frage dazu werden sollte.

[LingNeu]

Vielen Dank!!!
Wie es aussieht, passt dies wunderbar.
Ich teste noch etwas, dann melde ich mich nochmals.
ciao
LingNeu

[KodeZwerg]

Delphi-Quellcode:

function MixStringEnc(Input1, Input2: String): String;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(Input1) do
  begin
    Result := Result + Input1[i];
    if Length(Input2) >= i then Result := Result + Input2[i];
  end;
  Result := Result + Char($255);
  for i := i to Length(Input2) do
    Result := Result + Input2[i];
end;

procedure MixStringDec(Input: String; var Output1, Output2: String);
var
  i: Integer;
  Split: Boolean;
begin
  Split := False;
  Output1 := '';
  Output2 := '';
  i := 1;
  repeat
    if Input[i] = Char($255) then Split := True;
    if ((not Split)and(Input[i]<>Char($255))) then Output1 := Output1 + Input[i];
    if ((length(Input) >= i+1)and(Input[i+1]<>Char($255))) then Output2 := Output2 + Input[i+1];
    Inc(i,2);
  until i >= Length(Input);
end;

Hier ist eine Variante die Du auch wieder zurückverwandeln kannst, bei Anzeige vom kodierten musst Du das Char($255) rausfiltern oder tausche das Char($255) mit was auch immer Du magst aus, aber bedenke das es ohne diesen einen speziellen Trenner keine korrekte Rückverwandlung möglich ist!

So sieht es aus wenn man es Anwendet:

Delphi-Quellcode:

 Memo1.Lines.Add('');
 Memo1.Lines.Add(''+MixStringEnc('Hans','Meier'));
 MixStringDec(MixStringEnc('Hans','Meier'), tmp1, tmp2);
 Memo1.Lines.Add(''+tmp1+' <-> '+tmp2);
 Memo1.Lines.Add('');
 Memo1.Lines.Add(''+MixStringEnc('Meier','Hans'));
 MixStringDec(MixStringEnc('Meier','Hans'), tmp1, tmp2);
 Memo1.Lines.Add(''+tmp1+' <-> '+tmp2);

Zitat:

HMaeniseɕr
Hans <-> Meier

MHeainesrɕ
Meier <-> Hans

Ps: Gern geschehn