إستخراج المعلومات إنطلاقا من فاصل خاص

[لؤي]

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

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

الكود

كود :

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

[kachwahed]

وعليكم السلام ورحمة الله
إذا استخدمت 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 بارك الله فيك و رزقك الله الجنة

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

شكرا