Mega Code Archive
Bir string icinde belli bir karekterin tamamini silmek
<![CDATA[
//Örnegin sayilari nokta ile ücer haneli ayirdiginiz bir
//Edit denetiminde bu sayilarla islem yapacaksaniz Noktalari
//silmek icin kullanabilirsiniz.
procedure enteryok(var enterli:string);
procedure Tabyok(var Tabli:string);
procedure noktayok(var noktali:string);
procedure TWform.enteryok(var enterli:string);
begin
while pos(chr(13),enterli)<>0 do
delete(enterli,pos(#13,enterli),1);
end;
procedure TWform.Tabyok(var Tabli:string);//tablari sil.
begin
while pos(chr(9),Tabli)<>0 do
delete(Tabli,pos(#9,Tabli),1);
end;
procedure Tform1.noktayok(var noktali:string);
begin
while pos('.',noktali)<>0 do
delete(noktali,pos('.',noktali),1);
end;
//Kullanimi
var
yazi:string;
sayi:integer;
begin
yazi:=edit1.text;
noktayok(yazi);//noktalar siliniyor.
sayi:=strtoint(yazi);//artik sayisal islem yapabiliriz.
...
end;
]]>