2 Zeichenketten zusammenführen

[marabu]

Hallo,

auch wenn die Anforderungen nicht ausreichend klar sind - hier noch eine kleine Inspiration:

Delphi-Quellcode:

function BeaStr(lines: TStrings; const csv: String): String;
var
  i: Integer;
begin
  with TStringList.Create do
  try
    CommaText := csv;
    Text := StringReplace(Text, ',', '\,', [rfReplaceAll]);
    lines.Text := StringReplace(lines.Text, ',', '\,', [rfReplaceAll]);
    for i := 0 to Pred(lines.Count) do
      if i < Count - i
        then Insert(i shl 1, lines[i])
        else Break;
    QuoteChar := #255;
    Delimiter := ',';
    Result := StringReplace(DelimitedText, #255, '', [rfReplaceAll]);
  finally
    Free;
  end;
end;

Angenommen Zeichenkette 2 steht in einem Memo zur Verfügung und Zeichenkette 1 in einem Edit, dann erhältst du dein Ergebnis so:

Delphi-Quellcode:

procedure TDemoForm.TestButtonClick(Sender: TObject);
begin
  ShowMessage(BeaStr(Memo.Lines, Edit.Text));
end;

Freundliche Grüße