StrinGrid в Delphi

[TaYgA]

Всем доброго времени суток... Хочу написать програмку что-то типо "Учёта личных финансов".... Добавление, удаление, пронумеровку строк столбцов, сохранение, загрузка сделал... Не могу догадаться как можно сделать чтоб пользователь вносил сам числа в StrinGrid!?!? Как сделать чтоб складывалась каждая строчка и записывалась в последнию ячейку!??! И на будущее.. Если в ячейке написана ссылка на сайт пользователем программы, то как её превратить в гиперсылку (т.е. при нажатии на ячейку с ссылкой Delphi переходила на этот сайт)?!?!

[Arigato]

Может попробовать использовать компонент TF1Book вместо TStringGrid?

[SERG1980]

По мне так лучше создать базу данных, работать удобнее, и возможноестей больше. Вдруг захотите потом какую нибудь выборку сделать или ещё что нибудь

[TaYgA]

Я новичёк, с базой данных ещё не работал и не представляю как.... А через StrinGrid не возможно так сделать?!

[psycho-coder]

Сделать возможно Но немного геморно, а для новичка (ИМХО) трудновато)))

Не могу догадаться как можно сделать чтоб пользователь вносил сам числа в StrinGrid!?!?

Немного не понял. В Object Inspector для StringGrid есть раздел Options. В них поставьте Editing в true

Как сделать чтоб складывалась каждая строчка и записывалась в последнию ячейку!??!

В цикле
Например пишу сюда, сам еще проверишь:

for i := 1 to StringGrid1.RowCount do
  sum := sum StrToInt(StringGrid1.Cells[1, i]) + StrToInt(StringGrid1.Cells[1, i+1]); // тут поставишь свои координаты
StringGrid1.Cells[1, {тут нужная ячейка}] := IntToStr(sum) + 'руб.';

И на будущее.. Если в ячейке написана ссылка на сайт пользователем программы, то как её превратить в гиперсылку (т.е. при нажатии на ячейку с ссылкой Delphi переходила на этот сайт)?!?!

Ну как то так: (опять же сам проверь)
Например в столбце с номером 10 будут ссылки

  if StringGrid1.Selection.Left = 10 then
    if StringGrid1.Cells[10, StringGrid1.Selection.Top] <> '' then
      WinExec(PChar(StringGrid1.Cells[10, StringGrid1.Selection.Top]), SW_NORMAL);

По идее это должно работать, но у меня не открывает страницу, мож кто подскажет ))

[TaYgA]

psycho-coder, большое вам спасибо за помощь

Если в ячейке написана ссылка на сайт пользователем программы, то как её превратить в гиперсылку (т.е. при нажатии на ячейку с ссылкой Delphi переходила на этот сайт)?!?!

  if StringGrid1.Selection.Left = 10 then
    if StringGrid1.Cells[10, StringGrid1.Selection.Top] <> '' then
      WinExec(PChar(StringGrid1.Cells[10, StringGrid1.Selection.Top]), SW_NORMAL);

Так не получается

[psycho-coder]

Вот нашел, держи:

  if StringGrid1.Selection.Left = 10 then
    if StringGrid1.Cells[10, StringGrid1.Selection.Top] <> '' then
      ShellExecute(0, 'OPEN', PChar(StringGrid1.Cells[10, StringGrid1.Selection.Top]), '', '', SW_NORMAL);

[artemavd]

Добавление, удаление, пронумеровку строк столбцов,

Вот вставка, удаление строк и колонок:

unit GridFunc;

interface

uses
  Sysutils, WinProcs, Grids;

procedure InsertRow(Sender: TStringGrid; ToIndex: Longint);
procedure DeleteRow(Sender: TStringGrid; FromIndex: Longint);
procedure InsertColumn(Sender: TStringGrid; ToIndex: Longint);
procedure DeleteColumn(Sender: TStringGrid; FromIndex: Longint);

implementation

type
  TCSGrid = class(TStringGrid)
  private
  public
    procedure MoveRow(FromIndex, ToIndex: Longint);
    procedure MoveColumn(FromIndex, ToIndex: Longint);
  end;

procedure TCSGrid.MoveRow(FromIndex, ToIndex: Longint);
begin
  RowMoved(FromIndex, ToIndex); { Защищенный метод TStringGrid }
end;

procedure TCSGrid.MoveColumn(FromIndex, ToIndex: Longint);
begin
  ColumnMoved(FromIndex, ToIndex); { Защищенный метод TStringGrid }
end;

procedure InsertRow(Sender: TStringGrid; ToIndex: Longint); //вставка строки
var
  xx, yy: Integer;
begin
  if ToIndex >= 0 then
    with TCSGrid(Sender) do
      if (ToIndex <= RowCount) then
      begin
        RowCount := RowCount + 1;
        xx := RowCount - 1;
        for yy := 0 to ColCount - 1 do
        begin
          Cells[yy, xx] := ' ';
          ObJects[yy, xx] := nil;
        end;
        if ToIndex < RowCount - 1 then
          MoveRow(RowCount - 1, ToIndex);
      end
      else
        MessageBeep(0)
    else
      MessageBeep(0);
end;

procedure DeleteRow(Sender: TStringGrid; FromIndex: Longint); //удаление строки
begin
  if FromIndex > l;
  = 0 then
    with TCSGrid(Sender) do
      if (RowCount > 0) and (FromIndex < RowCount) then
      begin
        if (FromIndex < RowCount - 1) then
          MoveRow(FromIndex, RowCount - 1);
        Rows[RowCount - 1].Clear;
        RowCount := RowCount - 1;
      end
      else
        MessageBeep(0)
    else
      MessageBeep(0);
end;

procedure InsertColumn(Sender: TStringGrid; ToIndex: Longint); //вставка колонки
var
  xx, yy: Integer;
begin
  if ToIndex >= 0 then
    with TCSGrid(Sender) do
      if (ToIndex <= ColCount) then
      begin
        ColCount := ColCount + 1;
        xx := ColCount - 1;
        Cols[xx].BeginUpdate;
        for yy := 0 to RowCount - 1 do
        begin
          Cells[xx, yy] := ' ';
          ObJects[xx, yy] := nil;
        end;
        Cols[xx].EndUpdate;
        if ToIndex < ColCount - 1 then
          MoveColumn(ColCount - 1, ToIndex);
      end
      else
        MessageBeep(0)
    else
      MessageBeep(0);
end;

procedure DeleteColumn(Sender: TStringGrid; FromIndex: Longint); //удаление колонки
begin
  if FromIndex >= 0 then
    with TCSGrid(Sender) do
      if (ColCount > 0) and (FromIndex < ColCount) then
      begin
        if (FromIndex < ColCount - 1) then
          MoveColumn(FromIndex, ColCount - 1);
        Cols[ColCount - 1].Clear;
        ColCount := ColCount - 1;
      end
      else
        MessageBeep(0)
    else
      MessageBeep(0);
end;

end.

[TaYgA]

Спасибо за помощь