диаграммa Delphi

[Defa4ka]

вот код.. производит подсчет количества повторений символов в тексте..

помогите сделать диаграмму по результатам подсчета

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    StringGrid1: TStringGrid;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var I:integer;
begin
for i:=0 to 32 do
stringgrid1.Cells[0,i]:=(chr(i+224));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
s:string;
begin
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
s:=memo1.Text;
for j:=0 to 32 do
begin
for i:=1 to length(memo1.Text) do
if (s[i]=stringgrid1.Cells[0,j]) or (AnsiLowerCase(s[i])=stringgrid1.Cells[0,j]) then
if stringgrid1.Cells[1,j]='' then
stringgrid1.Cells[1,j]:='1' else
stringgrid1.Cells[1,j]:=inttostr(strtoint(stringgrid1.Cells[1,j])+1);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Visible:=true;
end;

[Hacker19_90]

Ну так в чём проблема?
используйте TChart! И Рисуйте!

[Defa4ka]

Сообщение от Hacker19_90

Ну так в чём проблема?
используйте TChart! И Рисуйте!

если бы не было проблемы.. я б наверное так и сделала=)

[Hacker19_90]

если бы не было проблемы.. я б наверное так и сделала=)

НУ так а в чём она заключается? Не охото читать про TChart в интернете?
Понимаю! Но наврятли кто-то в 2 часа ночи будет вам так просто диаграммы чертить! Так что юзайте гугл! Ну или покажите наработки на график!