Tstrings Delphi 2007

[ecfisa]

Hola JaviMarciano.

Podes ahorrarte la variable Statement usando la variable implícita Result,

Código Delphi [-]
function GetStatement(StatementLines: TStrings): string;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to StatementLines.Count - 1 do
    Result := Result + Trim(StatementLines[i]) + ' ';
  SetLength(Result, Length(Result)-1);
end;

Saludos