Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.088 Beiträge
 
Delphi 12 Athens
 
#66

AW: VerySimpleXML: Problem unter iOS?

  Alt 23. Dez 2013, 00:10
Noch nicht optimiert genug?

Delphi-Quellcode:
  // splitt long lines
  for I := Lines.Count - 1 downto 0 do
  begin
    if Length(Lines[I]) > 1000 then
    begin
      for I2 := Length(Lines[I]) div 1000 - 1 downto 0 do
        Lines.Insert(I + 1, Copy(Lines[I], (I2 * 1000) + Low(string), 1000));
      Delete(I);
    end;
  end;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat