استخدام برنامج مصمم بدلفي7 على اصدار دلفي احدث من CodeGear

كود :

[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;

اخي انا وضعت 300 Items لكني حذفتها هنا حتى لا تأخذ قدر كبير من المساحه

الأخوه الافاضل
لا اعلم السبب في ان الاكود لا تعمل معي على نسخه الكود قير ؟؟

سؤال آخر : حملت نسخه دلفي 7 من هنا
http://www.delphi4arab.net/forum/showthread.php?tid=484

لكن عندما اعمل سيت اب تظهر مسج ايرور (336:436 Runtime error (at
Can not open file