دخول

كاليميرو · 05-10-2009, 03:10 AM

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

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

كود :
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

وشكرا لكم

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