eng_ali
(مبرمج جديد)
**

تاريخ الإنتساب : 16-06-2019
تاريخ الميلاد : غير محدد
التوقيت المحلي : 16-09-2019 في 03:05 PM
الحالة : غير متصل

eng_ali معلومات المنتدى
إنضم إلينا : 16-06-2019
آخر زيارة 30-07-2019, 12:11 AM
إجمالي المشاركات : 3 (0.03 مشاركات في اليوم الواحد | 0.01 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 0 (0 مواضيع في اليوم | 0 في المئه من اجمالي المواضيع)
فترة البقاء متصل : 4 ساعات, 30 دقائق, 35 ثواني
الأعضاء المحالين: 0
Total Thanks Received: 3 (0.03 0.05 per day | 5605 percent of total 0.05)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 5 (0.05 0.09 per day | 5625 percent of total 0.09)
(Find All Thanked ThreadsFind All Thanked Posts)
  
توقيع eng_ali
لااله الا الله محمد رسول الله

RE: ما هي الملفات و كيف نتعامل معها ؟؟ 2
ما هي الملفات و كيف نتعامل معها ؟؟ دلفي والتعامل مع الملفات
السلام عليكم ورحمة الله وبركاته 
اخي الكريم اولا شكرا جزيلا على ردك الكريم 
لقد وفقني ربي سبحانه وتعالى في تحقيق الشرط والسؤال الدي طرحته سابقا بعد دراسة وتحليل بعض النمادج  والامثلة الخاصة بــ TMemoryStream
بحيث قمت بتحديد قيمتين من داتا ملف BIN ثم البحث عن هاتين القيمتين بالقراءة المتتالية للداتا وعند العثور عليها يتم تحويلها لبداية ونهاية للبولك الدي اريد قراءته وكتابته وقد نجحت الفكرة وقمت بتجربتها على عدة ملفات والنتيجة مرضية  ارجوا ان تجد فيها جوابا لسؤالك 3 فالقراءة من اول الملف تختلف عن القراءة من أخره والله أعلم 
وهدا مثال على ما توصلت له 
[code]unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  ...