Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

импорт текстовой таблицы в DBGrid [D6]

Страницы: 1 2 >
Diman © (2004-08-09 14:28:00)
Как импортировать таблицу(неизвестное число столбцов чисел Integer) из текстового файла в DBGrid ?

46_55_41_44 (2004-08-10 10:02:00) [1]

> Соловьев © (10.08.04 09:51) [33]

Var
F : TextFile;
S,
s1 : String;
k : Integer;
begin
if Not Mem.Active then
Mem.Active := True;
Mem.EmptyTable;
AssignFile(F, edit1.text);
Reset(F);
repeat
Readln(F, S);
k := 0;
Mem.Append;
repeat
if (Pos(' ', S) <> 0) and (S <> '') then
begin
S1 := Copy(S, 0, Pos(' ', S) - 1);
Mem.FieldByName('F' + IntToStr(K)).AsInteger := StrToInt(S1);
S := Copy(S, Pos(' ', S) + 1, Length(S) - Pos(' ', S));
k := k + 1;
end
else
begin
if S <> '' then
begin
Mem.FieldByName('F' + IntToStr(K)).AsInteger := StrToInt(S);
S := '';
end;
end;
Until S = '';
// TDataSet.Append;
// TDataSet.FieldByName(FieldName).AsInteger := StrToInt(s);
Until EOF(f);
CloseFile(F);

Кодом это можно назвать с большой натяжкой... наспех написанное.... 10 минут!!! Но работает на самом деле!

46_55_41_44 (2004-08-10 10:00:00) [2]
Anatoly Podgoretsky © (10.08.04 09:46) [32]
:)))) Это что вы имеете ввиду? (наивно похлопывает глазами) :)))))

Соловьев (2004-08-10 09:51:00) [3]

> Ну все... готово!!!
> Смотри свою почту!!!
> Сделал... Работает!
> Если не сможешь просмотреть исходник, то значит у тебя не
> RxLib.

выложил бы код тут - может еще кто-то поюзал. А народ покритиковал:)

Anatoly Podgoretsky (2004-08-10 09:46:00) [4]
46_55_41_44 © (09.08.04 15:27) [13]
Доволен говоришь :-)

Rule (2004-08-10 09:34:00) [5]
Diman (09.08.04 15:08) [9]
Большое спасибо! А как связать эти данные с DBGrid,и преобразовать в EXCEL-формат ?
ну как связать ты понял а как переправить в Эксел читай тут
http://www.kornjakov.ru/stat.htm

46_55_41_44 (2004-08-09 17:34:00) [6]
В этом сдучае установи компоненту RxLib 2.45

46_55_41_44 (2004-08-09 17:23:00) [7]
Ну все... готово!!!
Смотри свою почту!!!
Сделал... Работает!
Если не сможешь просмотреть исходник, то значит у тебя не RxLib.

Diman (2004-08-09 16:45:00) [8]
ОК!

46_55_41_44 (2004-08-09 16:41:00) [9]
Столбцов должно быть ровно 10... понятно?
Я сделаю именно для такого случая!!!
Могу конечно сделать для общего случая... Но на это просто нет времени...
остальное сам сделаешь!!!

KSergey (2004-08-09 16:31:00) [10]
crystalsoft - такого еще не было, пожалуй... ;)

Diman (2004-08-09 16:28:00) [11]
crystalsoft@rambler.ru
Очень жду, заранее благодарен.

46_55_41_44 (2004-08-09 16:25:00) [12]
дай мне свою почту...
пришлю тебе...
напишу и пришлю!
да и еще... скачай RxLib и установи его у себя!!!

Diman (2004-08-09 16:15:00) [13]
Простите ради бога, я запутался.
Не могли бы вы написать пример кода как импортировать из текстового файла таблицу, состоящую из 10 столбцов данных, разделитель - пробел, в DBGrid. Буду очень признателен!

46_55_41_44 (2004-08-09 15:58:00) [14]
Ну конечно нет!
Его и быть не может!
не DataSource1, а DataSet.
Это разные вещи... Тут подразумевается твой TClientDataSet.

Diman (2004-08-09 15:57:00) [15]
Точнее метода DataSource1.Append

Diman (2004-08-09 15:56:00) [16]
А у TDataSource нет свойства Append!

46_55_41_44 (2004-08-09 15:54:00) [17]
Хотя не знаю будет ли работать.. Просто потому что как уже говорил не работал я с этой TClientDataSet.

46_55_41_44 (2004-08-09 15:53:00) [18]
Знаешь я не использую эту самую TClientDataSet.
У меня RxLib есть... им пользуюсь.
А так... Двойной щелчок на компоненте TClientDataSet (ClientDatS1 твой случай)и появится окошко где с помощью правой кнопки мыши добавишь поля нужные!

Sergey13 (2004-08-09 15:51:00) [19]
2[16] Diman (09.08.04 15:48)
А в таблицу ли ты их впихнул? Походка не изменилась? 8-)

Diman (2004-08-09 15:48:00) [20]
-И так...
- В Data Access берешь DataSource.(например DataSource1)
-В параметре DataSet выбераешь таблицу куда впихнул эти самые -данные из файла...
А в какую таблицу я впижнул эти данные

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »