delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله

لم أفهم هذا الكود بارك الله فيكم

كود :
Procedure SplitString(lpData :Pchar; Var fsArray :Array of String);
  Var
  WordCount   :Integer;
  WordPos     :Integer;
  begin
    WordPos   :=  0;
    WordCount :=  0;
      Fillchar(fsArray,SizeOf(fsArray),#0);
        while lpData^ <> #0 do
          begin
          case lpData^ of

              '|'     : begin
                          Inc(WordCount);
                          WordPos:=0;
                        end;
          else
            Inc(WordPos);
              SetLength(fsArray[WordCount],WordPos);
                fsArray[WordCount][WordPos]:= lpData^;
        end;
      Inc(lpData);
    end;
  end;

بالاخص هذا الـــ pchar ^ و fillchar و #0

وشكرا لكم

حسب ما ارى هذا الكود يقوم ادخال نص ثم يقسمه الى جدول من النصوص حيث بين كل نص و نص هنك فاصل '|' . قراءة النص المدخل حرف حرف حيث اذا وجد حرف '|' يقوم بأنشاء سلسلة حروف جديدة انطلاقا من العداد السابق .

pchar ليس الا مؤشر على متغيرات ذات طول 8بايت . اذا اردت unicode يجب ان تنسى char هناك wchar اي 16 بايت
في دلفي عندما يتبع المؤشر ب ^ فذلك يدل على قيمة الفعلية . بدونها انت تتكلم عن العنوان

fillchar دالة تعطي المتغيرات ايا كان نوعها قيم ثابتة في هذا المثال 0

اشكرك جدا جدا بارك الله فيك

كاليميرو

virtual

كاليميرو