![]() |
|
|
#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
|
|||
|
|||
|
Я уже разобрался, но всё равно спс=)
|