اعداد محلل لغوي يعني نضع function هو يقوم بتحليل كلماتها الى poctuation
identificateur,mots clès
Mots-clés : function integer
Opérateurs : +
Identificateurs : max i j
Ponctuation : ( : ) ;
قمت بوضع كل كلمة في سطر لكن لا تنفع مبدئيا لانها تعتمد على فراغ واحد
procedure TForm1.Button1Click(Sender: TObject);
var
p,f,i:integer;
mot,str:string;
begin
str:= edit1.text;
i:=1;
while i<= length(str) do
begin
while (i <= length(str)) and (str[i]=' ') do
i:=i+1;
p:=i;
while (i<=length(str)) and ((str[i]<>' ')) do
i:=i+1;
f:=i-1;
mot:=copy(str,p,f-p+1);
memo1.lines.add(mot);
end;
stp aidez moi 