Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кушает первую букву... / 2 сообщений из 2, страница 1 из 1
16.10.2003, 01:30
    #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, 06:47
    #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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кушает первую букву... / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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