أسئلة عن بعض الأوامر والكلمات في دلفي

وأيضاً أريد أن أسأل عن :

1- Eof

2- BlockRead

بانتظاركم...

( من غير ذكر أسماء ) :-)

[CODE]Paramstr(0)
يرجع مسار المشروع المنفذ
[CODE]
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(ParamStr(0));
end;

Format

نستطيع تنسيق الخرج إلى اشكال مخصصة كتنسيق خرج التاريخ في Edit

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := format(DateToStr(Now),['MM dd,yyy'])
end;

trim

حذف الفراغات من أول الكلمة و أخرها

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
S := '  a  s ';
Edit1.Text:= Trim(S);
end;

pos

تبديل مكان محرف بمحرف أخر تختاره

procedure TForm1.Button2Click(Sender: TObject);
var S: string;
begin
  S := '   123.5';
  { Convert spaces to zeros }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
    ShowMessage(s);
end;

Assigned

اختبار إذا كان الكائن يؤشر إلى Nil أم لا

procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(form2) then
     form2.Show;
end;

تقرا سجل أو أكثر من ملف إلى متحول

var

  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then     { Display Open dialog box }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);	{ Record size = 1 }
    if SaveDialog1.Execute then      { Display Save dialog box}
    begin
      AssignFile(ToF, SaveDialog1.FileName);	{ Open output file }

      Rewrite(ToF, 1);	{ Record size = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;

eof

اخبار الوصول إلى نهاية الملف

var

  F1, F2: TextFile;
  Ch: Char;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do
      begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;

end;

اتمنى ان تراجع Help الدلفي قبل السؤال لانه يشرح جميع هذه الكلمات

وذلك من أجل استفادتك أكثر

جزاك الله خيراً أخي M_Asize

أنا بالفعل قرأت المساعدة في دلفي

ولكن بقي عندي بعض الإشكالات فأردت الاستفادة من خبراتكم...

بارك الله فيك. وفي علمك

تعقيب

اقتباس

pos

تبديل مكان محرف بمحرف أخر تختاره

هذا ليس صحيح يا اخي

pos تعيد ترتيب محرف ضمن سلسلة محرفية

اي Index الذي يقع فيه المحرف ضمن السلسلة المحرفية

مرحبا

تعقيب

اسف على الخطأ

كلامك صحيح اخي

ارجو ان تعذروني

ملاحظة

Eof

تستخدم ايضا مع مكونات قواعد البيانات كـ ADOTable

وذلك لاختبار الوصول إلى السجل الاخير

ًWhile not ADOTable.eof  do
begin
الجمل التي تريد تنفيذها قبل 
end;