من میخوام بازی دوز رو بنویسم به دلفی و اون رو تحت شبکه کنم یعنی دو نفر که سیستم هاشون با هم شبک هست باهم از دو سیستم مجزا بازی کنن ... میخوام بدونم میتونین توی نوشتن این بازی کمکم کنید ....
با سلام و خوش آمد.
اگر بیشتر توضیح می دادید بهتر میشد متوجه شد که شما چه کاری می خواهید بکنید.
چیزی که من برداشت کردم اینه که شما می خواهید اطلاعات دیتابیس را خوانده و تغییر بدهید. و در این میان می خواهید تابعی هم بسازید و کار را آنجا انجام بدهید. خوب خواندن دیتابیس یک کار است و تغییر دیتابیس کار دیگر. شاید در دو تابع بخواهید انجام دهید این کار را. پس بایستی اطلاعات آن رکورد را به عنوان ورودی تابع ارسال کنید.
کلا کار با دیتابیس که مشخص است. ولی استفاده یا عدم استفاده از تابع یا روش استفاده از تابع به معماری برنامه شما برمی گردد. مدیریت آن را خودتان باید به عهده بگیرید. اگر استفاده از تابع را بلد باشید فورا درمی یابید چطور از آن استفاده کنید. ولی اینکه معماری برنامه چگونه باید باشد را یا باید از الگوهایی که پیدا می کنید استفاده کنید یا خودتان طرحی پیاده کنید. اگر خودتان طرحی پیاده می کنید باید با دقت مواظب رفتار برنامه باشید تا کاری که می خواهید دقیقا انجام شود.
امیدوارم درست سئوال شما را متوجه شده باشم و توانسته باشم کمی قضیه را توضیح داده باشم.
با سلام و عرض خسته نباشید
من میخوام با دلفی بتونم در فایل word که در آن متنی از قبل تایپ شده در قسمت های از آن متن تغییرات بدم و سپس فایل را نمایش بدم آیا امکان دارد ؟
تو رو خدا یکی جواب بده !!
احتمالا چیزهایی پیدا کنید.
شرح کمکی: هر پنجره در ویندوز شماره منحصر به فردی دارد. می توان با دستوراتی با این پنجره ارتباط برقرار کرد. ارسال یک کلید را سرچ کنید. کلید کنترل a برای انتخاب همه و کلید کنترل c(فکر کنم. دقیقا یادم نیست) برای کپی گرفتن. البته اگر سئوال شما را درست متوجه شده باشم.
سلام
من میخوام مساله آرایشگر خوابیده را به دلفی بنویسم ولی نمی دونم چطوری
اگه ممکنه یه سری اطلاعات در مورد نخ ها در دلفی و اینکه اصلا چطور نوشته میشن و چطور باید از آنها استفاده کنیم به من بدید.
با سلام
من یک کامپوننت TExBar دارم این اجرا می کنم درسمت چپ فرم نمایش در می آید
می خواستم این داخل یک panel delphi باشد و هر کجای فرم خواستم بگذارم
با تشکر
قدیمی بودن به خودی خود عیب محسوب نمیشه.
C و ++C که قدیمی تر از Delphi هستند اما همچنان ازشون استقبال میشه و کاربرد تجاری شون رو هم حفظ کرده اند.
البته بهتره که برنامه نویسان Delphi کلاسیک با Oxygene هم آشنا شوند.
اموزش ارسال اطلاعات از بانک اطلاعاتی به نرم افزار اکسل در دلفی
سلام.یه آموزش و سورس کد از دلفی تو این آموزش شما یاد میگیرید که چطوری اطلاعات از بانک اطلاعاتی به نرم افزار اکسل ارسال کنید
کد:
procedure ExporttoExl(TheDataset:TDataSet;SheetExcelName:String);
var
XApp:Variant;
sheet:Variant;
r,c:Integer;
q:Integer;
row,col:Integer;
fildName:Integer;
begin
try
begin
XApp:=CreateOleObject('Excel.Application');
XApp.Visible:=true;
end;
except
showmessage('Unable to link with MS Excel, it seems as it is not installed on this system.');
exit;
end;
XApp.WorkBooks.Add(-4167);
//open a new blank workbook
XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1';
//give any name required to ExcelSheet
sheet:=XApp.WorkBooks[1].WorkSheets['Sheet1'];
for fildName:=0 to TheDataset.FieldCount-1 do
//TheDataset refer to the any dataset holding data
begin
q:=fildName+1;
sheet.Cells[1,q]:=TheDataset.Fields[fildName].FieldName;
// enter the column headings
end;
//now supply the data from table to excel sheet
TheDataset.First;
for r:=0 to TheDataset.RecordCount-1 do
begin
for c:=0 to TheDataset.FieldCount-1 do
begin
row:=r+2;
col:=c+1;
sheet.Cells[row,col]:=TheDataset.Fields[c].AsString;
end;
TheDataset.Next;
end;
//set font attributes of required range if required
XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Bold:=True;
XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Color := clblue;
XApp.WorkSheets['Sheet1'].Range['A1:AA1'].Font.Color := clblue;
XApp.WorkSheets['Sheet1'].Range['A1:K1'].Borders.LineStyle :=13;
// set other attributes as below
XApp.WorkSheets['Sheet1'].Range['A1:K11'].HorizontalAlignment := 3;
// .Borders.LineStyle :=13;
XApp.WorkSheets['Sheet1'].Columns[1].ColumnWidth:=10;
XApp.WorkSheets['Sheet1'].Columns[2].ColumnWidth:=10;
XApp.WorkSheets['Sheet1'].Columns[3].ColumnWidth:=15;
XApp.WorkSheets['Sheet1'].Columns[4].ColumnWidth:=6;
XApp.WorkSheets['Sheet1'].Columns[5].ColumnWidth:=18;
XApp.WorkSheets['Sheet1'].Columns[6].ColumnWidth:=9;
XApp.WorkSheets['Sheet1'].Columns[7].ColumnWidth:=23;
XApp.WorkSheets['Sheet1'].Columns[8].ColumnWidth:=23;
XApp.WorkSheets['Sheet1'].Columns[9].ColumnWidth:=23;
XApp.WorkSheets['Sheet1'].Columns[10].ColumnWidth:=10;
xapp.caption := 'Exported from Demo programmed by SK Arora,the digitiger';
XApp.WorkSheets['Sheet1'].name := 'Exported from ' + SheetExcelName;
//assuming dataset is TTable based its tablename can be given as title of worksheet
//close;
end;
به عنوان مثال
کد:
procedure TForm1.Button1Click(Sender: TObject);
begin
ExporttoExl(ClientDataSet1,'Sheet1');
close;
end;
