Перенос данных из StringGrid-а в DBGrid

[artemavd]

Все, сделал так:

procedure TForm3.SpeedButton2Click(Sender: TObject);
var
 i:integer;
begin
 for i:=1 to 25 do
 begin
    if Form1.SG9.Cells[0,i] <> '' then
   begin
 Table1.Append;
 Table1.Edit;
 Table1.FieldByName('№').AsString:=Form1.SG9.Cells[0,i];
 Table1.FieldByName('Фамилия Имя Отчество').AsString:=Form1.SG9.Cells[1,i];
 Table1.FieldByName('2-ки').AsString:=Form1.SG9.Cells[2,i];
 Table1.FieldByName('3-ки').AsString:=Form1.SG9.Cells[3,i];
 Table1.FieldByName('4-ки').AsString:=Form1.SG9.Cells[4,i];
 Table1.FieldByName('5-ки').AsString:=Form1.SG9.Cells[5,i];
 Table1.FieldByName('КО').AsString:=Form1.SG9.Cells[6,i];
 Table1.FieldByName('СБ').AsString:=Form1.SG9.Cells[7,i];
 Table1.FieldByName('КУ').AsString:=Form1.SG9.Cells[8,i];
 Table1.FieldByName('У').AsString:=Form1.SG9.Cells[9,i];
 Table1.FieldByName('О').AsString:=Form1.SG9.Cells[10,i];
 Table1.FieldByName('ЧО').AsString:=Form1.SG9.Cells[11,i];
 Table1.Post;
 Table1.Refresh;
    end;
 end;
end;

Спасибо за помощь всем )

[Stilet]

Можно так:

 for i:=1 to 25 do
 begin
  StringGrid1.Rows[i].Delimiter:=#1;
  if StringReplace(StringGrid1.Rows[i].DelimitedText,#1,'',[rfreplaceall])='' then  continue

[artemavd]

Спасибо, Stilet большое тебе . Выручил уже в который раз

[Stilet]

Всегда пожалуйста.

[Minotavr_x86]

Мое сообщение уже не имеет смысла

[S@fer]

Artemavd, а если у тебя будет больше 25 строчек?
Сделай лучше проверку стринггрида "пока не последняя строка", так будет правильней.

[artemavd]

S@fer, нет, больше 25 точно не будет. В программе это число статическое. Меньше будет, а больше нет. .
Minotavr_x86, сообщение смысл имеет всегда.