Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.088 Beiträge
Delphi 12 Athens
|
AW: VerySimpleXML: Problem unter iOS?
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.
|