Xml "&" ve "<" karakterini nasıl hızlı Replace Yapabilirim ?

[emrahgs]

Merhaba Delphi 2007 Kullanıyorum
Xmlden Veri alma Üzrine Bİ Proje Yapmaya Çalışıyorum Fakat
Gelen Xml lerde "&" ve "<" karakterleri varsa clientdataset bu xml leri açamıyor ama internet explorer da açamıyor
Xml i Memo da açıp
for döngüsünde
StringReplace Kullanarak bu karakteler düzeltilebiliyor fakat
30 000 , 40 000 satır olan xml lerde bu yöntem çok yavaş kalıyor
bu nu daha hızlı nasıl replace yapabiliriz?
Teşekkürler.

[conari]

Kod: Tümünü seç

AnsiReplaceText(Text,'From','To') 

for döngüsü kullanılmaz

[Battosai]

Aşağıdaki fonksiyon ile daha hızlı sonuç alırsın...

Kod: Tümünü seç

function ReplaceCharFast (const s: string): string;
var i: integer;
begin
  Result := s;
  for i := 1 to length (Result) do Begin
    case Result [i] of
     '&': Result [i] := '-';
     '<': Result [i] := '-';
    End;
  End;
End;

[emrahgs]

Conari ;
AnsiReplaceText(Text,'From','To') bunu çalıştıramadım

Battosai ;
Ama fuoksiyon string istiyor strings vermem gerek benim yada satırları dönmek
ReplaceCharFast(Memo1.Text,'&','-'); bu şekilde de çalışmıyor
yada be yapamadım

[Battosai]

Fonksiyonu size göre değiştirdim...

Kod: Tümünü seç

Memo1.Text:=ReplaceCharFast(Memo1.Text);

Bu şekilde çalışıyor....

[emrahgs]

Fonksiyonu size göre değiştirdim...

Kod: Tümünü seç

Memo1.Text:=ReplaceCharFast(Memo1.Text);

Bu şekilde çalışıyor....

Hocam Çok Teşkkür Ederim Süper Çalıştı
bende jedinin
JvFindReplace1.ReplaceAll('&', '-');
çözmeye çalışıyodum projeye jedi eklemenin hiç gereği kalmadı performansıda süper
Bu arada Fonksiyondan " '<': Result := '-'; " bu satırı sildim ben bu fonksiyonu xml de kullanacağım için sıkıntı çıkarcak
"<" buna yapabileceğimiz bir şey yok gibi duruyo zaten

birde fonksiyonun nasıl işlediğini anlamış değilim

[Battosai]

birde fonksiyonun nasıl işlediğini anlamış değilim

Döngüde sırası gelen karakter için atama yapılıyor...Hızlı çalışmasının sebebi baştan sona sadece ileri katar kontrolü yaparak gitmesinden kaynaklanıyor...For döngüsü çok hızlı bir döngüdür...100.000 katarlık bir string olsa dahi hızlı çalışacaktır bu fonksiyon... denemesi bedava...Fakat işin içine karekter değilde örneğin bir kelime değiştirme girerse iş değişir farklı metotlar var bunlar için...conari'nin gönderdiği fonksiyon genelde bu tarz replace işlemleri için kullanılıyor ve strutils unitini uses a eklemeniz icap ediyor...Fakat büyük stringlerde oldukça yavaş çalışır....kısaca durum böyle.

[emrahgs]

Tekrar Tşekkür ederim.