ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кушает первую букву...
2 сообщений из 2, страница 1 из 1
Кушает первую букву...
    #32294739
Alexey S. Petrov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey S. Petrov
Гость
Привет всем!

Вот такой код.


for i:= 0 to 43 do // кол-во полей в денежной таблице + 1
if form10.query4.Fields .asstring='1' then
a:=a + form10.query4.FieldList.ValueFromIndex + ', ';

form10.edit2.text:=a;

в переменной а в итоге получается строка из двух слов через запятую :).
Проблема в том, что у слов нету первой буквы (у обоих). Если это важно - обе первые буквы "О" - английские, заглавные.

Эту строку я потом буду передавать в SQL - запрос.

В чем проблема?
...
Рейтинг: 0 / 0
16.10.2003, 01:30
| Ответить | Цитировать | Написать  
Кушает первую букву...
    #32294784
Фотография Luchkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Luchkin Dmitry
Участник
проблема, наверняка, в клинике...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
.....
var 
   i : integer;
   a : string;
begin
   a:= '';
   for i:=  0  to  43  do // кол-во полей в денежной таблице +  1  
      if form10.query4.Fields[i].asstring='1' then 
         a:=a + form10.query4.FieldList.ValueFromIndex + ', '; 
         // что такое FieldList.ValueFromIndex я понятия не имею, но здесь где-то тоже i должно быть
   form10.edit2.text:=a;
.....
...
Рейтинг: 0 / 0
16.10.2003, 06:47
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кушает первую букву...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]