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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.04.2008, 16:07
Кодер Кодер вне форума
Активный
 
Регистрация: 25.02.2008
Сообщения: 395
Репутация: -599
По умолчанию Тупик

Может кто помоч?

У меня в текстовом файле хранится информация, в формате(время, дата, задание, статус)

пр. 11:00:00 23.04.2008 Позвонить Невыполнено

Как мне проще и красивее отобразить весь список информации?
Ответить с цитированием
  #2  
Старый 19.04.2008, 16:35
Аватар для Zylex
Zylex Zylex вне форума
Прохожий
 
Регистрация: 06.04.2008
Адрес: Сыктывкар
Сообщения: 33
Репутация: 10
По умолчанию

Можно в StringGrid отобразить.
Вот вариант с использованием openDialog.


Код:
procedure TForm1.Button1Click(Sender: TObject);
var
   s :TStringlist;
   i,j:Integer;
   Str:String;
   y, x: Integer;

Begin
    with TOpenDialog.Create(Owner) do
    begin
       DefaultExt:='.txt';
       Filter:= 'txt|*.txt';
       if not Execute then exit;
       S:=TStringList.Create;
       S.LoadFromFile(FileName);
       For y := 1 to S.Count do
       begin
           x := 0;
           Str := '';
           For i := 1 to Length(S.Strings[y-1]) do
           begin
              if S.Strings[y-1][i] <> ' ' then
                  Str := Str + S.Strings[y-1][i]
              else
              begin
                 StringGrid1.Cells[x, y-1] := Str;
                 Str := '';
                 inc(x);
              end;
           end;
       end;
    end;
    S.Free;
end;
__________________
Программирование - стиль жизни
Ответить с цитированием
  #3  
Старый 20.04.2008, 23:01
Кодер Кодер вне форума
Активный
 
Регистрация: 25.02.2008
Сообщения: 395
Репутация: -599
По умолчанию

Я уже разобрался, но всё равно спс=)
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter