Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

works:programmer:delphi:intarray [2026/03/20 12:15] – создано Eugeneworks:programmer:delphi:intarray [2026/03/20 12:24] (текущий) – Eugene
Строка 51: Строка 51:
  
     function Join(Arr: PIntegerArray): String;     function Join(Arr: PIntegerArray): String;
-    var S: TStringStream; +    var I: Integer;
-        I: Integer;+
     begin     begin
         Result := '';         Result := '';
         if Arr^.Length > 0 then begin         if Arr^.Length > 0 then begin
-            S :=  TStringStream.Create(''); +            Result := IntToStr(Arr^.Items[0]); 
-            try +            for I := 1 to Arr^.Length - 1 do begin 
-                S.WriteString(IntToStr(Arr^.Items[0])); +                Result := Result + ',' + IntToStr(Arr^.Items[I]);
-                for I := 1 to Arr^.Length - 1 do begin +
-                    S.WriteString(',' + IntToStr(Arr^.Items[I])); +
-                end; +
-                Result := S.DataString; +
-            finally +
-                FreeAndNil(S);+
             end;             end;
-        end+        end;
     end;     end;
 </code> </code>
  • works/programmer/delphi/intarray.txt
  • Последнее изменение: 2026/03/20 12:24
  • — Eugene