|
|
#1
|
|||
|
|||
Тупик
Может кто помоч?
У меня в текстовом файле хранится информация, в формате(время, дата, задание, статус) пр. 11:00:00 23.04.2008 Позвонить Невыполнено Как мне проще и красивее отобразить весь список информации? |
#2
|
||||
|
||||
Можно в 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
|
|||
|
|||
Я уже разобрался, но всё равно спс=)
|