IMHO.WS

IMHO.WS (https://www.imho.ws/index.php)
-   Программирование (https://www.imho.ws/forumdisplay.php?f=40)
-   -   Считать файл txt в StringGrid (https://www.imho.ws/showthread.php?t=35499)

odissei 30.07.2003 19:33

Считать файл txt в StringGrid
 
Помогите кто-нибудь, в Delphi считать данные представленные в виде таблицы, из файла txt в ячейки StringGrid'а

Flex256 01.08.2003 08:24

ты бы пример текстовогофайла привел что-ли...

odissei 03.08.2003 22:03

Flex256
Спасибо тебе Flex256 за то что ты откликнулся. Но я сам нашел ответ на свой вопрос


:yees:

YAS 03.08.2003 23:16

odissei
А поделиться найденным ответом нет желания?

Flex256 04.08.2003 07:52

тут не может быть хитрого решения - все делается тупо в лоб... :)
разбор строки на кусочки и пихание кусочков в stringGrid
По другому - никак

YAS 04.08.2003 09:02

Flex256
Это понятно. Просто получился топ, который ставит проблему, и сообщает, что решение существует. А какое именно решение - не говорит!

odissei 05.08.2003 20:33

Отправляю вам решение на поставленную мною задачу

procedure TForm1.Button1Click(Sender: TObject);
var i, N: Integer;
begin
if OpenDialog1.Execute then
with TStringList.Create do
try LoadFromFile(OpenDialog1.FileName);
stringgrid1.RowCount:=Count;
for i:=0 to Count-1 do begin
stringgrid1.Rows[i].CommaText:=Strings[i];
end
finally
end;

Добавлено через 1 минуту:
Flex256
Отправляю решение на поставленную мною задачу

procedure TForm1.Button1Click(Sender: TObject);
var i, N: Integer;
begin
if OpenDialog1.Execute then
with TStringList.Create do
try LoadFromFile(OpenDialog1.FileName);
stringgrid1.RowCount:=Count;
for i:=0 to Count-1 do begin
stringgrid1.Rows[i].CommaText:=Strings[i];
end
finally
end;


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

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.