[tiberianss]

Вот тут вот кажется всё просто???

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    str1: TEdit;
    Button1: TButton;
    str2: TEdit;
    str3: TEdit;
    str4: TEdit;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);

   private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure vgrids;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
begin
vGrids(0,'12~12~3~456~23);
end;

procedure vGrids(j: integer; str: string; a:TStringGrid);
var i, si :integer;  st:string;
begin
for i:=1 to Length(str)+1 do
  begin
    if (str[i]='~') or (i=Length(str)+1) then
       begin
       if j=0 then a.ColCount:=  a.ColCount+1;
       a.Cells[si,0]:=st;
       st:='';
       si:=si+1;
       end
    else
   st:=st+str[i];
  end;
  end;
end.

А не тут то было, то много аргументов в процедуру ввожу, то не правильно объявил, вообщем беда. Как поправить то??? Задача сводиться к тому что есть строки (str: string) с тильдами и числами и надо записать числа в нужную строку (j: integer) стрингрида (a:TStringGrid)