hay una manera de hacer esto más eficiente:
necesito concatenar cada item de un Tstrings en en una cadena separado por espacios
Código Delphi
[-]function TOracle.GetStatement(StatementLines: TStrings): string;
var
I: Integer;
Statement: string;
begin
Statement := '';
for i := 0 to StatementLines.Count - 1 do
begin
Statement := Statement + ' ' + Trim(StatementLines[i]);
end;
Result := TrimLeft(Statement);
end;
es para delphi 2007