imho.ws
IMHO.WS  

Вернуться   IMHO.WS > Компьютеры > Программирование
Опции темы
Старый 30.07.2003, 19:33     # 1
odissei
Guest
 
Сообщения: n/a

Unhappy Считать файл txt в StringGrid

Помогите кто-нибудь, в Delphi считать данные представленные в виде таблицы, из файла txt в ячейки StringGrid'а
 
Старый 01.08.2003, 08:24     # 2
Flex256
Guest
 
Сообщения: n/a

ты бы пример текстовогофайла привел что-ли...
 
Старый 03.08.2003, 22:03     # 3
odissei
Guest
 
Сообщения: n/a

Lightbulb

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


 
Старый 03.08.2003, 23:16     # 4
YAS
::VIP::
 
Аватар для YAS
 
Регистрация: 18.01.2002
Адрес: Moscow
Сообщения: 1 919

YAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS Сэнсэй
odissei
А поделиться найденным ответом нет желания?
__________________
Бороться и искать, найти и перепрятать :-)
YAS вне форума  
Старый 04.08.2003, 07:52     # 5
Flex256
Guest
 
Сообщения: n/a

тут не может быть хитрого решения - все делается тупо в лоб...
разбор строки на кусочки и пихание кусочков в stringGrid
По другому - никак
 
Старый 04.08.2003, 09:02     # 6
YAS
::VIP::
 
Аватар для YAS
 
Регистрация: 18.01.2002
Адрес: Moscow
Сообщения: 1 919

YAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS СэнсэйYAS Сэнсэй
Flex256
Это понятно. Просто получился топ, который ставит проблему, и сообщает, что решение существует. А какое именно решение - не говорит!
__________________
Бороться и искать, найти и перепрятать :-)
YAS вне форума  
Старый 05.08.2003, 20:33     # 7
odissei
Guest
 
Сообщения: n/a

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

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;
 


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

BB код Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


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




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