تقسيم النص

[S.FATEH]

السلام عليكم يمكنك استخدام TStringList مع خاصية Delimiter حيث تضع فيها المحدد الذي يفصل بين النصوص و تضع في خاصية DelimitedText النص المراد اجراء العملية عليه ثم تقوم بتحميل النص الى stringlist يتم التقسيم بطريقة الية ابحث في المنتدى هناك الكثير مما اثير حول الموضوع
مثال :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  SplitText(Memo1, ';');
end; 


PHP كود :

procedure TForm1.SplitText(AMemo: TMemo; Delimiter: Char);
var
  StringList: TStringList;
  I: Integer;
begin
  StringList := TStringList.Create;
  try
    StringList.Delimiter := Delimiter;
    StringList.DelimitedText := AMemo.Text;
    AMemo.Clear;
    for I := 0 to StringList.Count - 1 do
      AMemo.Lines.Add(StringList[I]);
  finally
    StringList.Free;
  end;
end;