تجزئة String

و عليكم السلام

فكرة بسيطة

الفورم تحتوي على Button و Edit و ListBox

procedure TForm1.Button1Click(Sender: TObject);
var S0, S1: string;
	 i: integer;
begin
  ListBox1.clear;
  i:=-1;
  S0:=trim(Edit1.Text)+' ';
  repeat
   inc(i);
   if S0=' ' then
	begin
	 S1 := Copy(S0,0,i);
	 ListBox1.Items.Add(S1);
	 S0 := Copy(S0,i+1,length(S0));
	  i:=-1;
	end;
  until length(S0)=0;
end;

هناك طريقة سهلة بإستخدام ال TStringList عن طريقة الا Delimiter, DelimitedText

const
  s = 'بسم الله الرحمن الرحيم';
var
  sl : TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  sl.Delimiter := ' ';
  sl.DelimitedText := s;
  for i := 0 to sl.Count - 1 do
	ShowMessage(sl);
end;

إذا أجاب محمد نسمان فعلى مروان السلام :)

استفدنا .. مشكور أخي محمد

بارك الله فيكم جميعا وشكرا

مارأيكم في جملة تقسيم سهلة

مشكور الأخ محمد نسمان إذ عرفني عليها

var
s,sd,sd1,sd2,sd3:string;
stl:stringlist;
s:='بسم الله الرحمن الرحيم';
s := StringReplace(s,' ',#13#10,[rfReplaceAll, rfIgnoreCase]);
stl := TStringList.Create;
 stl.Text := s;
sd:=stl[0];
sd2:=stl[1];
sd3:=stl[2];
sd4:=stl[3];