Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 14.10.2014
Сообщений: 93

Запись данных из txt в DBGride

21.02.2016, 13:43. Показов 690. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени, столкнулся с проблемой, при записи данных в DBGride из текстового файла, вводит лишь первый столбец, на остальные ругается.
Вот мой листинг
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TFormDisp.Button1Click(Sender: TObject); 
var 
f:textFile; 
s,sum:string; 
begin 
 
While not DataModule1.Disp.Eof do 
DataModule1.Disp.Delete; 
AssignFile(f,'DispData.txt'); 
reset(f); 
While not eof (f) do begin 
Readln(f,s); 
if pos('|',s)<>0 then 
begin 
 
DataModule1.Disp.Insert; 
DataModule1.Disp.Fields[1].AsString:=Copy(s,1,pos('|',s)-1); 
DataModule1.Disp.Fields[2].AsString:=Copy(s,1,pos('|',s)-1); 
DataModule1.Disp.Fields[3].AsString:=Copy(s,1,pos('|',s)-1); 
DataModule1.Disp.Fields[4].AsString:=Copy(s,1,pos('|',s)-1); 
DataModule1.Disp.Fields[5].AsInteger:=StrToInt(copy(s,pos('|',s)+1, length(s)-pos('|',s)+1)); 
 
DataModule1.Disp.Post; 
end; 
end; 
closeFile(f); 
 
end; 
 
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.02.2016, 13:43
Ответы с готовыми решениями:

Чтение данных с одного txt файла, запись данных во второй txt в определенную позицию
Добрый день, уважаемые форумчане! Нужна ваша помощь. Задача поставлена так: существует файл film2.txt (постараюсь его прикрепить для...

Ввод данных с txt файла, сортировка и запись результата в txt файлы
Доброго времени суток, такое задание, не могу сделать ввод данных из .тхт файла, чтобы потом отсортировать данные из этого же файла и...

Чтение из файла 'New.txt', запись четных строк в '1.txt', а нечетных в '2.txt'
В общем все работает, но есть &quot;НО&quot;, иначе бы не открывал тему. Содержимое исходного файла: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2...

3
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,656
Записей в блоге: 21
21.02.2016, 18:50
прямо интересно, зачем первым четырем полям присваивать одно и то же?
а еще нельзя ли pos('|',s) не вычислять 100 раз, а вычислить и сунуть в переменную M или даже N ?
и почему вы от всех скрываете какими именно словами "ругается" (мимими, тьфу) на вас программа?
0
пофигист широкого профиля
4769 / 3204 / 862
Регистрация: 15.07.2013
Сообщений: 18,609
22.02.2016, 01:55
Цитата Сообщение от krapotkin Посмотреть сообщение
прямо интересно, зачем первым четырем полям присваивать одно и то же?
В бездумно содранном и безграмотно переработанном коде речь шла о только двух полях в текстовом файле разделённых символом |.
0
1 / 1 / 0
Регистрация: 14.10.2014
Сообщений: 93
22.02.2016, 11:17  [ТС]
Он ругается на то что не правильно указан тип данных

Добавлено через 27 минут
всё я сделал, удалял скопированные символы
вот листинг, конечно корявый, но рабочий
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var s,k,j,q:string;
a:integer;
begin
   s:='123|qwer|456|theEnd';
k:=copy(s,1,(Pos('|',s)-1));
Label1.Caption:=k;
delete(s,1, pos('|',s));
j:=copy(s,1,(Pos('|',s)-1));
 label2.Caption:=j;
 
     delete(s,1, pos('|',s));
q:=copy(s,1,(Pos('|',s)-1));
 label3.Caption:=q;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.02.2016, 11:17
Помогаю со студенческими работами здесь

Запись данных в файл txt
записываю через for(int i=0;i&lt;l;i++) f&lt;&lt;a.fio&lt;&lt;&quot; &quot;&lt;&lt;a.nomer&lt;&lt;&quot; &quot;&lt;&lt;a.inf&lt;&lt;&quot; &quot;&lt;&lt;a.inmov&lt;&lt;&quot; &quot;&lt;&lt;a.math&lt;&lt;&quot; &quot;&lt;&lt;a.fiz&lt;&lt;endl; Если...

Запись данных в txt-документ
Есть код public void PrintValue() throws FileNotFoundException{ ID++; writer = new...

Запись данных из txt в dbf
Универ, программирование, первая практика, выдали &quot;по-шаговый мануал&quot; (гениально, не правда ли?). В итоге имею полу-рабочую программу с...

Запись данных в txt колонками
Доброго времени суток! Подскажите как создать ТХТ файл в котором результат расчета функции записывается в колонки например А*В=Х ...

Запись данных из listView в txt (построчно)
Всем привет! Сабж. Есть листВиев в нем N строчек, как записать все эти строки в txt файл? (если txt файл есть, мы не должны...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru