K.Mohammadreza
یک شنبه 13 اردیبهشت 1388, 10:13 صبح
سلام به همه برنامه نویسان مخصوصا برنامه نویسان دلفی.
اگر مطالب ارائه شده تکراری بود به بزرگی خودتان ببخشید.
مدتها در اینترنت گشتم اما برنامه ماتریس معکوس را بطور صحیح و کامل در پاسکال نیافتم من این برنامه را بصورت کامل آماده کردم و سورس آن را بصورت فایل pdf برایتان قرار می دهم که امیدوارم مورد استفاده قرار گیرد. این فایل را می توانید از آدرس زیر دریافت کنید:
http://www.MegaShare.com/835843
خیلی ها دوست دارند وقتی اعداد را تایپ می کنند همان موقع بصورت سه رقم، سه رقم جدا شود اینکار بسیار ساده است که در زیر به نحوه ی انجام اینکار می پردازیم.
برای اینکه کارمان بهتر باشد یک پروژه جدید ایجاد کنید و فقط یک کنترل Edit روی فرم بیندازید و سپس کارهای زیر را انجام دهید.
ابتدا دو تابع اساسی زیر را در برنامه خود وارد کنید.
function GetNumber(Str: String): String;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(Str) do
if(Str[i] in ['0'..'9'])then
Result := Result + Str[i];
end;
function Set3Digit(StrSource: String): String;
var
i, j: Integer;
begin
Result := '';
j := 0;
for i := Length(StrSource) downto 1 do
begin
Result := StrSource[i] + Result;
Inc(j);
if((j mod 3) = 0)and(i <> 1)then
Result := ',' + Result;
end;
end;
و سپس در رویداد OnChange کنترل Edit کدهای زیر را بنویسید.
procedure Tfrorm1.Edit1Change(Sender: TObject);
begin
Edit1.OnChange := nil;
Edit1.Text := Set3Digit(GetNumber(Edit1.Text));
Edit1.SelStart := Length(Edit1.Text);
Edit1.OnChange := Edit1Change;
end;
اگر مطالب ارائه شده تکراری بود به بزرگی خودتان ببخشید.
مدتها در اینترنت گشتم اما برنامه ماتریس معکوس را بطور صحیح و کامل در پاسکال نیافتم من این برنامه را بصورت کامل آماده کردم و سورس آن را بصورت فایل pdf برایتان قرار می دهم که امیدوارم مورد استفاده قرار گیرد. این فایل را می توانید از آدرس زیر دریافت کنید:
http://www.MegaShare.com/835843
خیلی ها دوست دارند وقتی اعداد را تایپ می کنند همان موقع بصورت سه رقم، سه رقم جدا شود اینکار بسیار ساده است که در زیر به نحوه ی انجام اینکار می پردازیم.
برای اینکه کارمان بهتر باشد یک پروژه جدید ایجاد کنید و فقط یک کنترل Edit روی فرم بیندازید و سپس کارهای زیر را انجام دهید.
ابتدا دو تابع اساسی زیر را در برنامه خود وارد کنید.
function GetNumber(Str: String): String;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(Str) do
if(Str[i] in ['0'..'9'])then
Result := Result + Str[i];
end;
function Set3Digit(StrSource: String): String;
var
i, j: Integer;
begin
Result := '';
j := 0;
for i := Length(StrSource) downto 1 do
begin
Result := StrSource[i] + Result;
Inc(j);
if((j mod 3) = 0)and(i <> 1)then
Result := ',' + Result;
end;
end;
و سپس در رویداد OnChange کنترل Edit کدهای زیر را بنویسید.
procedure Tfrorm1.Edit1Change(Sender: TObject);
begin
Edit1.OnChange := nil;
Edit1.Text := Set3Digit(GetNumber(Edit1.Text));
Edit1.SelStart := Length(Edit1.Text);
Edit1.OnChange := Edit1Change;
end;