delphi4arab منتديات دلفي للعرب

سلام الله عليكم

لي ملف نصي يحتوي على بين كل معلومة وأخرى فاصل من نوع ^ بحثت في المنتدى والنت وأنشأت الكود التالي لكن لم ينجح معي الفصل بين المعلومات
Smile

الكود

كود :
Var
  T: TextFile;
  l: String;
  s: TStringList;

begin
  AssignFile(T,'C:\g.txt');
  Reset(T);
  s := TStringList.Create ;

    Application.ProcessMessages;
    Readln(T,L);

  //s.Delimiter := ' ';
   s.QuoteChar := '^';
   s.DelimitedText := L;
  memo1.Lines.Text:= s[0]   ;
      s.Free;

هذا جزء من محتوى الملف g.txt

'C:\g.txt=04/06/11^14:18:21^3^777_M_A.oxy^42^0077^T^72

وعليكم السلام ورحمة الله
إذا استخدمت TStringList فلا تستخدم AssignFile وملحقاتها
جرب:

PHP كود :
var
  S: TStringList;
begin
  S := TStringList.Create;
  try
    //S.LoadFromFile('C:\g.txt');
    S.Text := '04/06/11^14:18:21^3^777_M_A.oxy^42^0077^T^72';
    ListBox1.Items.Delimiter := '^';
    ListBox1.Items.DelimitedText := S.Text;
  finally
    S.Free;
  end;  // try
end; 

بالتوفيق.

أخي kachwahed بارك الله فيك و رزقك الله الجنة

أشتغل معي الفصل بين المعلومات بحرف خاص

شكرا

لؤي

kachwahed

لؤي