[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)

[poli-smen]

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

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

Код:

...
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)

Во-первых у тебя не проинициализирована переменная si.
Во-вторых не нужно прибавлять единицу к длине строки.

UPD. А, всё, я понял зачем прибавляется единица к длине строки - второе моё замечание прошу считать недействительным

[tiberianss]

su: integer;
а если не прибавить 1 то не получишь последнее значение

[poli-smen]

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

su: integer;

Во-первых не su, а si, а во-вторых я говорил не о объявлении этой переменной, а об её инициализации. Т.е. перед циклом нужно сделать:

Код:

si := 0;

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

а если не прибавить 1 то не получишь последнее значение

Я уже понял зачем там прибавляется единица. В предыдущем своём сообщении я поправился.

[poli-smen]

Ага. Вот ещё здесь ошибка:

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

Код:

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

Вызывать нужно (видимо) так:

Код:

  vGrids(0,'12~12~3~456~23', StringGrid1);

[tiberianss]

Поправил процедуру, как вы говорили)))
Смысл от этого не поменялся.
implementation

{$R *.dfm}

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin
vGrids(1,'jy~~~~~34~',StringGrid1);
end;

procedure vGrids(j: integer; str: string; a:TStringGrid);
var i, si :integer;  st:string;
begin
si:=0;
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.

Выдаеться ошибка:
[Error] Unit1.pas(36): Too many actual parameters(((((

[~TB~]

Если процедура не объявлена в интерфейсе, то подними ее выше того места где вызываешь.

[tiberianss]

Я удалил объявление процедуры в шапке, и поставил её ниже процедуры обработки клика. Всё заработало спасибо. Но если процедуру не ставить выше, где её требуеться объявлять и каким образом???

[~TB~]

Перед implementation.

Если процедура такая:

Код:

procedure A(b: string; c: MyType);
var
i: Integer;
begin
...
end;

То объявлять так:

Код:

procedure A(b: string; c: MyType);

[icWasya]

>to tiberianss
>Но если процедуру не ставить выше, где её требуеться объявлять и каким образом???

В Вашем первом посте строчки 28 и 39 должны быть одинаковыми.

[ined]

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure vGrids(j: integer; str: string; a:TStringGrid);
var i, si :integer;  st:string;
begin
si:=0;
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;

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

end.

Пользуйся.