خطأ عند قراءة معلومات عن المشروع

#126 فبراير 2006 في 02:05 صاحب الموضوع

اخواني في الله

السلام عليكم و رحمة الله و بركاته , وجدت الكود التالي للبحث عن كلمة داخل اداة RichEdit

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    Edit1: TEdit;
    procedure Search_In_RichEdit(RichEdit: TRichEdit);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var

  StartPos:integer;

procedure TForm1.Search_In_RichEdit(RichEdit: TRichEdit);
var
Position:Integer;
begin
Position:=-1;
RichEdit.Lines.BeginUpdate;
Position := RichEdit.FindText(Edit1.Text, StartPos, Length(RichEdit.Text), [stMatchCase]);

    if Position > -1 then
    begin
      RichEdit1.SelStart  := Position;
      RichEdit1.SelLength := Length(Edit1.Text);
      RichEdit1.SetFocus;
      StartPos:= StartPos + Length(Edit1.Text);
    end;
    if StartPos = Length(RichEdit.Text) then
       StartPos:= 0;

RichEdit1.Lines.EndUpdate;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Search_In_RichEdit(RichEdit1);
end;

end.

و لكن عندما نفذت الكود يظهر عندي هذا الخطأ

علما اني استخدم الاصدار السادس لدلفي

فما هو الحل لذلك ؟؟؟؟؟

و شكرا لكم .

تم تعديل هذه المشاركة بواسطة DeltaAziz في 26 فبراير 2006 في 14:39

#226 فبراير 2006 في 02:07

اخواني في الله

السلام عليكم و رحمة الله و بركاته , وجدت الكود التالي لقراءة معلومات المشروع من ملف Resourse للمشروع

implementation

type
TInfoRecord = record
    CompanyName       : string;
    FileDescription   : string;
    FileVersion       : string;
    InternalName      : string;
    LegalCopyright    : string;
    LegalTrademarks   : string;
    OriginalFileName  : string;
    ProductName       : string;
    ProductVersion    : string;
    Comments          : string;
    Programmers       : string;
end;

procedure GetProgInfo(var aInfoRec:TInfoRecord);
var
  Size,Size2: DWord; 
  pt,pt2 : Pointer; 
begin 
  Size := GetFileVersionInfoSize(pchar(paramstr(0)),Size2);
  if Size > 0 then 
    begin 
      GetMem(PT, Size); 
      Try

        GetFileVersionInfo(pchar(paramstr(0)),0,Size,pt);


        VerQueryValue(pt,PChar('StringFileInfo\040904E4\CompanyName'),pt2,Size2);
          aInfoRec.CompanyName := pchar(Pt2);

          VerQueryValue(pt,'\StringFileInfo\040904E4\FileDescription\',pt2,Size2);
          aInfoRec.FileDescription := PChar(Pt2);


          VerQueryValue(pt,'\StringFileInfo\040904E4\FileVersion\',pt2,Size2);
          aInfoRec.FileVersion := PChar(Pt2);


          VerQueryValue(pt,'\StringFileInfo\040904E4\InternalName\',pt2,Size2);
          aInfoRec.InternalName := pchar(Pt2);


          VerQueryValue(pt,'\StringFileInfo\040904E4\LegalCopyright\',pt2,Size2);
          aInfoRec.LegalCopyRight := PChar(Pt2);


          VerQueryValue(pt,'\StringFileInfo\040904E4\LegalTradmarks\',pt2,Size2);
          aInfoRec.LegalTrademarks := pchar(Pt2);


          VerQueryValue(pt,'\StringFileInfo\040904E4\OriginalFileName\',pt2,Size2);
          aInfoRec.OriginalFileName := pchar(Pt2); 


          VerQueryValue(pt,'\StringFileInfo\040904E4\ProductName\',pt2,Size2);
          aInfoRec.ProductName := pchar(Pt2); 


          VerQueryValue(pt,'\StringFileInfo\040904E4\ProductVersion\',pt2,Size2);
          aInfoRec.ProductVersion := pchar(Pt2); 

        VerQueryValue(pt,'\StringFileInfo\040904E4\Comments\',pt2,Size2);
          aInfoRec.Comments := pchar(Pt2);

        VerQueryValue(pt,'\StringFileInfo\040904E4\Programmers\',pt2,Size2);
          aInfoRec.Programmers := pchar(Pt2);  
       finally
        FreeMem(pt); 
      end; 
    end; 
end;

وعند تنفيذ البرنامج يظهر الخطأ التالي

علما اني استخدم الاصدار السادس

فما هو الحل لذلك ؟؟؟؟؟

و شكرا لكم .

تم تعديل هذه المشاركة بواسطة DeltaAziz في 26 فبراير 2006 في 14:41

#326 فبراير 2006 في 03:57

أضف مايلي بعد implementation

{$R *.dfm}

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#426 فبراير 2006 في 04:15

هو نفس السؤال الأخر

عليك إضافة الجملة التالية بعد implementation

{$R *.dfm}

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#527 فبراير 2006 في 04:13

جزاك الله الله خيرا اخي cipher

لكن عندي سؤال من فضلك و هو ما هي فائدة {$R *.dfm} ؟

حيث اني اعرف ان علامة { } تعني يمكنك كتابة ملاحظات و لا يتدخل المترجم فيها و لذلك حذفتها من مشروعي .

ارجو ان تتكرم بالاجابة على استفساري .

#627 فبراير 2006 في 04:21

هذا مشروع البحث عن كلمة داخل نص في اداةRichText

بعد التعديل و البسيط و توثيق الكود و اضافة {$R *.dfm}

Find_Text_Richtext.rar

#727 فبراير 2006 في 04:51

في Delphi Help اكتب resource files, including

إقرأ ما كتب هناك ..

اقتباس
حيث اني اعرف ان علامة { } تعني يمكنك كتابة ملاحظات و لا يتدخل المترجم فيها و لذلك حذفتها من مشروعي

تلك تختلف عن المستعملة هنا التي تدخل ضمن مايسمى

Delphi compiler directives

راجع Delphi Help لمعلومات عنها وستجد قائمة بـ Delphi compiler directives (list) .

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#827 فبراير 2006 في 05:02

جزاك الله خيرا

#927 فبراير 2006 في 05:18

جزاك الله خير

ولكن عند تعديل كود قراءة بيانات المشروع باضافة {$R *.dfm} ظهر لي الخطأ التالي

و هل يوجد كود افضل من هذا الكود لقراءة بيانات المشروع ؟؟؟؟؟

GetProgInfo.rar

#1027 فبراير 2006 في 15:14

شووووووووووف هنا :

http://www.droopyeyes.com/default.asp?mode=ShowProduct&ID=4

ما جربتة ... لكن اصحابة يمدحون انفسهم ... ومجاني

او ابحث عن String Replace وستجد ان شاء الله اكثر من طريقة

#1127 فبراير 2006 في 16:41

لقراءة File version information راجع هذا الكود

http://www.swissdelphicenter.ch/torry/showcode.php?id=1047

ستلاحظ أن هناك جزء خطأ في الكود الذي كنت تستعمله .. أتمنى أن تعرف اين ذلك الخطأ

تحياتي

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#1228 فبراير 2006 في 01:52

راح اجرب الاكواد ان شاء الله و ارد خبر

خطأ عند قراءة معلومات عن المشروع

مواضيع مشابهة