[lerandivan]

Здравствуйте! Помогите советом, что делаю не так... Нужно чтобы в таблицу загружались значения из файла(прикреплен ниже) начиная с SB и заканчивая SC.
Вот мой код

Код:

begin
   a:=TStringlist.Create;
   a.LoadFromFile('work\3.txt');
   StringGrid8.RowCount:=22;
   StringGrid8.ColCount:=1;
   for i:=0 to 22 do
   StringGrid8.Cells[0,i]:=copy(a.Strings[i],pos('SB',a.Strings[i])+1,length(a.Strings[i])-pos('SC',a.Strings[i]));
   a.Free
   end;

[Alegun]

Первое что пришло

Код:

begin
 a:= TStringlist.Create;
 a.LoadFromFile('work\3.txt');
 b:= 0;
 for i := 0 to a.Count-1 do
  begin
   if b > 0 then
    begin
     if (a[i] = '----') and (a[i+1] = 'SC') then exit;
     StringGrid8.Cells[0,b-1]:= a[i];
     StringGrid8.RowCount:= b;
     inc(b);
    end;
   if a[i] = 'SB' then b:= 1;
  end;
 a.Free
end;