Strings an eine Funktion übergeben

[marabu]

Hi,

Jonny hat Recht - die Strings müssen als Literale noch in Quotes verpackt werden:

Delphi-Quellcode:

function GetSelectedStrings(lb: TListBox): String;
var
  i: Integer;
begin
  with TStringList.Create do
  try
    for i := 0 to Pred(lb.Count) do
      if lb.Selected[i] then
        Add(QuotedStr(lb.Items[i]));
    QuoteChar := #0;
    Result := DelimitedText;
  finally
    Free;
  end;
end;

Grüße vom marabu