+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما معنى pchar ^ و fillchar و #0 (/showthread.php?tid=1247)
ما معنى pchar ^ و fillchar و #0 - كاليميرو - 05-10-2009
السلام عليكم ورحمة الله
لم أفهم هذا الكود بارك الله فيكم
كود :
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 ^ و fillchar و #0 - virtual - 06-10-2009
حسب ما ارى هذا الكود يقوم ادخال نص ثم يقسمه الى جدول من النصوص حيث بين كل نص و نص هنك فاصل '|' . قراءة النص المدخل حرف حرف حيث اذا وجد حرف '|' يقوم بأنشاء سلسلة حروف جديدة انطلاقا من العداد السابق .
pchar ليس الا مؤشر على متغيرات ذات طول 8بايت . اذا اردت unicode يجب ان تنسى char هناك wchar اي 16 بايت
في دلفي عندما يتبع المؤشر ب ^ فذلك يدل على قيمة الفعلية . بدونها انت تتكلم عن العنوان
fillchar دالة تعطي المتغيرات ايا كان نوعها قيم ثابتة في هذا المثال 0
ما معنى pchar ^ و fillchar و #0 - كاليميرو - 06-10-2009
اشكرك جدا جدا بارك الله فيك