| eng_ali معلومات المنتدى |
| إنضم إلينا : |
16-06-2019 |
| آخر زيارة |
15-11-2025, 12:05 AM |
| إجمالي المشاركات : |
3 (0 مشاركات في اليوم الواحد | 0.01 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
|
| اجمالي المواضيع : |
0 (0 مواضيع في اليوم | 0 في المئه من اجمالي المواضيع) |
| فترة البقاء متصل : |
7 ساعات, 15 دقائق, 20 ثواني |
| الأعضاء المحالين: |
0 |
|
3 (0 0.03 per day | 11111 percent of total 0.03)
( — )
|
|
5 (0 0.04 per day | 11143 percent of total 0.04)
( — )
|
|
|
| توقيع eng_ali |
| لااله الا الله محمد رسول الله |
|
|
|
|
| RE: ما هي الملفات و كيف نتعامل معها ؟؟ |
11-07-2019, 04:25 AM |
2 |
|
|
| ما هي الملفات و كيف نتعامل معها ؟؟ |
منتديات دلفي التقنية
دلفي والتعامل مع الملفات
|
|
| السلام عليكم ورحمة الله وبركاته
اخي الكريم اولا شكرا جزيلا على ردك الكريم
لقد وفقني ربي سبحانه وتعالى في تحقيق الشرط والسؤال الدي طرحته سابقا بعد دراسة وتحليل بعض النمادج والامثلة الخاصة بــ TMemoryStream
بحيث قمت بتحديد قيمتين من داتا ملف BIN ثم البحث عن هاتين القيمتين بالقراءة المتتالية للداتا وعند العثور عليها يتم تحويلها لبداية ونهاية للبولك الدي اريد قراءته وكتابته وقد نجحت الفكرة وقمت بتجربتها على عدة ملفات والنتيجة مرضية ارجوا ان تجد فيها جوابا لسؤالك 3 فالقراءة من اول الملف تختلف عن القراءة من أخره والله أعلم
وهدا مثال على ما توصلت له
كود :
--
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 ...
|
|
