سؤال ( كيف يتم ادخال سلسلة نصية و اضافة عناصرها الى مصفوفة ) ؟

تقارن الحرف الاول مع البقية اذا وجدته متساوي تحذف التشابه ونبقي على الحرف الاول

وهكذا نحصل على

حروف[0]=a

عدد[0] = inc(j)/ j=عدد الحرف الاول

ثم ننتقل للحرف الثاني نقارنه مع البقية ولا نرجع للوراء ونحصل

حروف[1]=b

عدد[1] = inc(j)/ j=عدد الحرف الثاني

شكرا اخي الكريم على الاجابة :)

ممكن توضيح الكلام في الكود .. انا مبتدئ في باسكال 

واسف اتعبتك 

type  TDynamicSA= array of string;

function OccurrencesOfChar(const S: string; const C: char): integer;var  i: Integer;begin  result := 0;  for i := 1 to Length(S) do    if S = C then      inc(result);end;

procedure TForm1.btn2Click(Sender: TObject);var text:string;list,ss:TDynamicSA;i:Integer;begin text:='ABCDFEFGHIJKMLMNOPQRXXSTUVWXYZAARAA'; for i:=0 to Length(text)-1 do begin SetLength(list,i+1);  SetLength(ss,i+1);  list :=IntToStr(OccurrencesOfChar(text,text));  ss:= text; end; for i:=1 to 26 dommo1.Lines.Add(ss+' : '+list);

اخي الكريم انا استخدم الكونسول ابليكشين في برنامج الـ lazarus  لذلك لا يوجد .btn2Click 

اعتذر تعبتك معي 

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

  type

  TDynamicSA= array of string;

function OccurrencesOfChar(const S: string; const C: char): integer;

var

  i: Integer;

begin

  result := 0;

  for i := 1 to Length(S) do

    if S = C then

      inc(result);

end;

var text:string;

count,Alpha:TDynamicSA;

i:Integer;

begin

 text:='ABCDFEFGHIJKMLMNOPQRXXSTUVWXYZAARAA';

 for i:=0 to Length(text)-1 do begin

 SetLength(count,i+1);

  SetLength(Alpha,i+1);

  count :=IntToStr(OccurrencesOfChar(text,text));

  Alpha:= text;

 end;

 for i:=1 to 26 do

Writeln(Alpha+' : '+count);

Readln;

end.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

  function DeleteChar(var S: string; const C: char): string;

var

  i: Integer;

begin

 // result := s;

  for i := 0 to Length(S)-1 do

    if S = C then

      Delete(S,i,1);

      result := S;

end;

type

  TDynamicSA= array of string;

function OccurrencesOfChar(const S: string; const C: char): integer;

var

  i: Integer;

begin

  result := 0;

  for i := 1 to Length(S) do

    if S = C then

      inc(result);

end;

var text:string;

count,Alpha:TDynamicSA;

i:Integer;

begin

 //text:='ABCDFEFGHIJKMLMNOPQRXXSTUVWXYZAARAA';

 Writeln('tapez votre texte ici : ')  ;

 read(text);

 text:=UpperCase(text)  ;

 for i:=1 to 26 do begin

 SetLength(count,i+1);

  SetLength(Alpha,i+1);

  count :=IntToStr(OccurrencesOfChar(text,Char(64+i)));

  Alpha:= Char(64+i);

 end;

 for i:=1 to 26 do

 Writeln(Alpha+' : '+count);

 //Writeln('----------------');

// for i:=1 to 26 do

 //Writeln(Char(64+i)+ ' : '+ inttostr(OccurrencesOfChar(text,Char(64+i))) );

//Writeln(Alpha+' : '+count);

 Readln;

Readln;

end.

شكررررررا جزيلا وفقك الله لكل خير 

اشتغل البرنامج .. روووعة اشكرك جدا