![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Здравствуйте, помогите новичку кодом) Имеется таблица StringGrid(фото прикреплено ниже) нужно начиная со второй строки в таблицу, также выводились данные второй строки файла(прикреплен ниже) и далее по порядку. Заранее спасибо за помощь!)
|
|
#2
|
|||
|
|||
|
Че-то непонятно с данными. Либо одна цифра лишняя, либо в какой-то колонке должно быть 2 цифры.
А вообще, как-то так: Код:
var
F : TStringList;
I,J : Integer;
S : String;
A : Array [0..5] Of String;
begin
F := TDTringList.Create;
Try
F.LoadFromFile('path\previousplaning.txt');
For I := 1 To F.Count-1 Do
Begin
For J := 0 To 5 Do A[J] := ''; // cleanup buffer array
J := 0;
S := Trim(F[i]);
While J < 6 Do
Begin
A[J] := Copy(S,1,Pos(' ',S)-1);
S := Copy(S,Pos(' ',S)+1,Length(S));
Inc(J);
End;
// Где-то здесь фигня, т.к. данных больше, чем ячеек
// Т.е. код будет другой, этот приведен просто для примера
For J := 0 to 5 Do
StringGrid1.Cells[J,I] := A[i];
End;
Finally
F.Free;
End |
|
#3
|
||||
|
||||
|
Похоже там в заголовке сцеплены столбцы Channel и Type. Вот и несоответствие заголовков с данными.
|