Цитата:
|
Сообщение от 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. А, всё, я понял зачем прибавляется единица к длине строки - второе моё замечание прошу считать недействительным
