Memo auslesen und als SQL Parameter aufbereiten

[DeddyH]

Oder so:

Delphi-Quellcode:

function StrFromList(const List: TStrings): string;
var
  i: integer;
begin
  Result := '';
  if List.Count > 0 then
    begin
      Result := QuotedStr(List[0]);
      for i := 1 to List.Count - 1 do
        Result := Format('%s, %s',[Result, QuotedStr(List[i])]);
    end;
  Result := Format('(%s)', [Result]);
end;

Allerdings kann man das Ergebnis AFAIK nicht als SQL-Parameter übergeben, hier müssten noch diesbezügliche Threads zu finden sein.