Ansireplacestr çalışmıyor...

uğur alkan · Mesaj gönderen **uğur alkan** » 19 Ağu 2007 08:45

begin
FORM1.Memo1.Clear;
AssignFile(dosya,'c:\mm.PLT');
Reset(dosya,1);
AKTARILACAK:='';
index:=0;
repeat
index:=index+1;
//setlength(datam,index);
blockread(dosya,bayt,1,okunan);//Tek bayt okutmak için 3.değişkene 1 yazdık
        if bayt=ORD(',') then BAYT:=ORD(' '); //virgülden kurtul
        AKTARILACAK:=AKTARILACAK+CHAR(bayt);
        FORM1.Edit1.Text:=AKTARILACAK;
        FORM1.Edit1.Refresh;
        if bayt=ORD(';') then
        begin
        showmessage(AKTARILACAK);
                if (POS('PU;',AKTARILACAK)>0) OR(POS('IN;',AKTARILACAK)>0) OR (POS('H;',AKTARILACAK)>0) THEN AKTARILACAK:='';
                ANSIREPLACESTR(AKTARILACAK,'PA','PU');
                form1.Memo1.Lines.Add(AKTARILACAK);
                FORM1.MEMO1.REFRESH;
                AKTARILACAK:='';
        end;
until eof(dosya);

Komut işleniyor fakat aktarılacak değişkeninin içindeki PA değeri değişmiyor.

mrmarman · Mesaj gönderen **mrmarman** » 19 Ağu 2007 10:10

Kod: Tümünü seç

              PA:=  ANSIREPLACESTR(AKTARILACAK,'PA','PU');

şeklinde bir dene

uğur alkan · Mesaj gönderen **uğur alkan** » 20 Ağu 2007 06:24

Tamam problem çözüldü...

Kod: Tümünü seç

AKTARILACAK:=ANSIREPLACESTR(AKTARILACAK,'PA','PU');

şeklinde çalışıyor.

Teşekkürler....