|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Загрузка данных из текстового файла в StringGrid
Здравствуйте, помогите новичку кодом) Имеется таблица 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. Вот и несоответствие заголовков с данными.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |