edit

[سنجاقک]

سلام دوستان.چطور می شه مقدار داخل edit رو 3رقم ,3رقم جدا کرد؟
سرچ کردم ولی چیزی پیدا نکردم

[جواد ملاولی]

سلام دوستان.چطور می شه مقدار داخل edit رو 3رقم ,3رقم جدا کرد؟


سلام. من این تیکه برنامه رو چند سال پیش نوشتم:
اول این تابع رو می نویسی:

function delete_kama(s:string):string;
var p:integer;
begin
for p := 1 to length(s) do
if s[p]=',' then
delete(s,p,1);
delete_kama:=s;
end;

بعد در رویداد OnChange در Edit اینجوری می نویسی:

procedure TForm1.Edit1Change(Sender: TObject);
var i:integer; mystr,s:string;
begin
s:=',';
if Edit1.Text<>'' then
begin
mystr:='';
mystr:=delete_kama(Edit1.Text);
i:=length(mystr);
while i>3 do
begin
insert(s,mystr,i-2);
i:=i-3
end;
mystr:=mystr;
Edit1.Text:=mystr;
Edit1.SelStart:=length(mystr);
end;
end;

[AliReza Vafakhah]

سرچ کردم ولی چیزی پیدا نکردم

برای جستجو بهتر هست از جستجو Google موجود در سایت استفاده کنید

به هر حال من یه سرچ زدم و این هم نتیجه اش


http://www.barnamenevis.org/forum/showthread.php?t=100525