20-03-2009, 12:15 AM
السلام عليكم
انا مبرمجه مبتدئه بالدلفي ... وقمت بالعمل على دلفي كود قير
أخذت برنامج مصمم بدلفي7 وقمت بتشغيله واشتغل من دون مشاكل
لكن عندما يبدأ البرنامج بالتنفيذ تظهر نسخه ال دلفي 7 .. لماذا؟؟وكيف ؟؟ وهل يمكن تغيير مسارها لتظهر كأنها صممت بدلفي كود قير؟؟
الامر الأخر لما صممت الانترفيس بنفس طريقه المتبعه للبرنامج في دلفي وكتبت نفس الكود لما عمل تنفيذ البرنامج ظهرت لي اخطاء؟؟ فكيف استطيع كتابه البرنامج نفسه بنسخه الكود قير
[/align]
انا مبرمجه مبتدئه بالدلفي ... وقمت بالعمل على دلفي كود قير
أخذت برنامج مصمم بدلفي7 وقمت بتشغيله واشتغل من دون مشاكل
لكن عندما يبدأ البرنامج بالتنفيذ تظهر نسخه ال دلفي 7 .. لماذا؟؟وكيف ؟؟ وهل يمكن تغيير مسارها لتظهر كأنها صممت بدلفي كود قير؟؟
الامر الأخر لما صممت الانترفيس بنفس طريقه المتبعه للبرنامج في دلفي وكتبت نفس الكود لما عمل تنفيذ البرنامج ظهرت لي اخطاء؟؟ فكيف استطيع كتابه البرنامج نفسه بنسخه الكود قير
كود :
[align=left]
const
Items300 : Array[0..299] of string[50] = (...,...,
);
procedure Tfrm.FormShow(Sender: TObject);
begin
memItems.Lines.Clear;
end;
function GetRandomItem : string;
var
i : longint;
begin
Randomize;
i := Random(300);
result := Items300[i];
end;
procedure Tfrm.bbtnSelectRandomClick(Sender: TObject);
var
I : longint;
begin
memItems.Lines.Clear;
for I := 1 to speMaxItems.Value do
memItems.Lines.Add(GetRandomItem);
end;
procedure Tfrm.bbtnSaveItemsToNewFileClick(Sender: TObject);
var
f : textFile;
i : longint;
begin
// ...
if memItems.Lines.Count > 0 then
begin
if SaveDialog.Execute then
begin
//MessageDlg(SaveDialog.FileName,mtInformation,[mbok],0);
assignFile(f,SaveDialog.FileName+'.txt');
rewrite(f);
for I := 0 to memItems.Lines.Count -2 do
write(f,memItems.Lines[i]+',');
writeln(f,memItems.Lines[memItems.Lines.Count -1]);
closeFile(f);
end;
end // if memItems.Lines.Count > 0 then ...
else
begin
MessageDlg('No Random Items Selected ...',mtInformation,[mbok],0);
end;
end;
procedure Tfrm.bbtnAppendItemsToExistFileClick(Sender: TObject);
var
f : textFile;
i : longint;
begin
// ...
if memItems.Lines.Count > 0 then
begin
if OpenDialog.Execute then
begin
//MessageDlg(OpenDialog.FileName,mtInformation,[mbok],0);
assignFile(f,OpenDialog.FileName);
Append(f);
for I := 0 to memItems.Lines.Count -2 do
write(f,memItems.Lines[i]+',');
writeln(f,memItems.Lines[memItems.Lines.Count -1]);
closeFile(f);
end;
end // if memItems.Lines.Count > 0 then ...
else
begin
MessageDlg('No Random Items Selected ...',mtInformation,[mbok],0);
end;
end;
procedure Tfrm.bbtnOpenTextFileClick(Sender: TObject);
var
f : textFile;
s : string;
begin
// ...
frmViewTextFile.memViewText.Lines.Clear;
if OpenDialog.Execute then
begin
//MessageDlg(OpenDialog.FileName,mtInformation,[mbok],0);
assignFile(f,OpenDialog.FileName);
reset(f);
while Not Eof(f) do
begin
readln(f,s);
frmViewTextFile.memViewText.Lines.Add(s);
end;
closeFile(f);
end;
frmViewTextFile.ShowModal;
end;
procedure Tfrm.bbtnCloseClick(Sender: TObject);
begin
// ...
Close;
end;