Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> StringGrid & LoadFromFile, как осуществить такое 
:(
    Опции темы
lider07
Дата 10.8.2003, 06:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет



с помощью этого кода в колонку загружаются имена файлов
var
F: TSearchRec;
Path: String;
Attr: Integer;
begin
Path:='*.txt'; {Искать все файлы в заданной директории с расширение txt,}
FindFirst(Path,Attr,F);
If F.Name<>'' then begin {Если хотя бы один файл найден, то продолжить поиск}
StringGrid1.Cols[1].Add(F.Name ); {Добавление в StringGrid имени найденного файла}
While FindNext(F)=0 do Stringgrid1.cols[1].Add(F.Name);
end;
FindClose(F);
end;
а теперь вопрос: Как осуществить загрузку содержимиго файла в Cols[2]
Заранее благодарен
PM MAIL ICQ MSN   Вверх
Vit
Дата 10.8.2003, 07:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207





--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
lider07
Дата 10.8.2003, 07:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет



спасибо за ссылку но та я не нашол то что мне бы помогло
я делал так StringGrid1.Cols[2].loadfromfile(f.name);
так загружается содержимое только одного файла а мне надо чтобы все файлы загрузились
PM MAIL ICQ MSN   Вверх
p0s0l
Дата 10.8.2003, 13:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112



Я правильно понял - тебе надо, чтобы правее каждой ячейки с именем файла выводилось содержимое этого файла ? И надо, чтобы весь файл сидел в одной ячейке ?
Если да, то тебе придется делать типа этого:

Код
var
 sr : TSearchRec;
 i, p, h, h1 : integer;
 s : string;
 f : file;
begin
 if FindFirst('*.txt', faAnyFile-faDirectory, sr) = 0 then
 begin
   i := 0;
   repeat
     StringGrid1.Cells[1, i] := sr.Name;
     AssignFile (f, sr.Name);
     Reset (f, 1);
     SetLength (s, FileSize(f));
     BlockRead (f, s[1], FileSize(f));
     CloseFile (f);
     stringgrid1.Cells[2, i] := s;

     inc(i);
   until FindNext(sr) <> 0;
   FindClose(sr);
 end;


И еще придется изменить OnDrawCell так, чтобы вместо символов #0D, #0A происходил перевод на
новую строку, типа такого:

Код
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var
 s, s1 : string;
 y, p : integer;

begin
 s := StringGrid1.Cells[ACol, ARow];
 y := rect.Top;
 with StringGrid1.Canvas do
 begin
   Brush.Style := bsSolid;
   Pen.Style := psSolid;
   Brush.Color := clWhite;
   Pen.Color := clWhite;
   Rectangle(rect);
   Brush.Style := bsClear;
   repeat
     p := pos(#13, s);
     if p = 0 then p := Length(s)+1;
     s1 := copy(s, 1, p-1);
     if p < Length(s) then if s[p+1] = #10 then inc(p);
     Delete(s, 1, p);
     TextRect (rect, rect.Left, y, s1);
     if s = '' then break;
     inc(y, TextHeight(s1));
   until y >= rect.Bottom;
 end;
end;




--------------------
С уважением, г-н Посол.
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0703 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.