Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.08.2015, 13:12
lerandivan lerandivan вне форума
Прохожий
 
Регистрация: 31.08.2015
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Загрузка данных из текстового файла в StringGrid

Здравствуйте, помогите новичку кодом) Имеется таблица StringGrid(фото прикреплено ниже) нужно начиная со второй строки в таблицу, также выводились данные второй строки файла(прикреплен ниже) и далее по порядку. Заранее спасибо за помощь!)
Изображения
Тип файла: jpg 1.JPG (12.2 Кбайт, 7 просмотров)
Вложения
Тип файла: txt previousplaning.txt (90 байт, 8 просмотров)
Ответить с цитированием
  #2  
Старый 31.08.2015, 19:38
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Че-то непонятно с данными. Либо одна цифра лишняя, либо в какой-то колонке должно быть 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  
Старый 04.09.2015, 00:57
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Похоже там в заголовке сцеплены столбцы Channel и Type. Вот и несоответствие заголовков с данными.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:28.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter