Memo auslesen und als SQL Parameter aufbereiten

[madtom]

Hallo Walter,

mal so auf die Schnelle, vorausgesetzt, das in jeder Zeile eine Zahl steht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  sTemp: string;
begin
  sTemp := EmptyStr;
  for i := 0 to Memo1.Lines.Count - 1 do
    sTemp := sTemp + '''' + Memo1.Lines[i] + '''' + ',';
  sTemp := Copy(sTemp, 0, Length(sTemp) - 1);
  ShowMessage('(' + sTemp + ')');
end;