karakter string işlemi

[diksacli_prens]

arkadasalar. bir string gridteki ki bilgieri (01/00/) burdaki "00" gecen yerleri ve (01/0-157) "0-157" gecen yerleri nasıl sistemin ayına esitleyebilirim ?. ben while pos la yapmaya caliştim ama sürekli hata veriyo yazdıgım kod asagıdadır

var
a,t, S, bir, iki, uc, dort,bes: string;
ay,yil,gun : word;
begin
decodedate(date,yil,ay,gun);
edit7.Text:=floattostr(ay);
t :=veri.Cells[2,f] ;
a:= t ;
while Pos('00', a) > 0 do begin
a[Pos('00', a)] :=ay;

.....
end;
end;

yadımcı olabilirseniz cok tesekur ederim.

[diksacli_prens]

diger zamanlara göre cevaplar biraz gecikti
sevgi ve saygılarımla

[aslangeri]

S.A.
uses kısmına strutils eklenecek.
döngü kısmını sana bırakıyorum. döngünün içinde a ya stringgriddeki değeri aktaracaksın "a" yı ayarladıktan sonra geri stringgride yazacaksın.

Kod: Tümünü seç

if pos(a,'00')>0 then
a:=AnsiReplaceStr(a,'00',edi7.text));
if pos(a,'XXXXXX'>0 then
a:=AnsiReplaceStr(a,'XXXXXX',edi7.text);

Kolay gelsin.

[diksacli_prens]

tesekuler simdi deniyorum