Janilabo Posted September 3, 2012 Share Posted September 3, 2012 function TSAToStr(TSA: TStrArray): string; var h, i: Integer; begin h := High(TSA); if (h < 0) then Exit; for i := 0 to (h - 1) do Result := (Result + '''' + TSA[i] + '''' + ','); Result := (Result + '''' + TSA[i] + ''''); end; begin WriteLn(TSAToStr([''])); WriteLn(TSAToStr([])); WriteLn(TSAToStr(['Hello','World','!'])); end. Quote Link to comment Share on other sites More sharing options...