دخول

مي2004 · 20-03-2009, 12:15 AM

السلام عليكم

انا مبرمجه مبتدئه بالدلفي ... وقمت بالعمل على دلفي كود قير
أخذت برنامج مصمم بدلفي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;

[/align]

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة