Довести до ума БД в delphi

[Харламов Юрий]

в книге не понятный листинг, не могу разобраться с реализацией расчетов и выводом на печать
книга использовалась Понамарев Самоучитель Базы Данных в delphi (практическое начинается на 143 странице)

[vovk]

Ответить очень трудно, говорите о какойто книге = чтоб ответить придётся найти, скачать и прочитать. Даёте исходник = там используются какието сторонние компоненты. извеняюсь компоненты не сторонние, у меня просто нет раврепорта (и не будет)
Может просто напишите что не получается и приведёте пример кода, в котором возникли проблемы?

[Харламов Юрий]

Вложил книгу эту

[vovk]

Цена не рассчитывается потому, что таблица с ценами пустая, там вообще не предусмотрено сохранения записи, непонятно зачем вообще таблица.
Если нажимаете принять сохраняйте запись, то есть на onclose формы добавте сохранение при нажатии кнопки "принять", и отмону изменений при закрытии формы другим способом.
Хотябы так

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Form2.ModalResult = mrOk then
 Table1.Post else
 Table1.Cancel;
end;

Как рассчитывать цену, это уж вам решать, только это условие

if z[i]= ''

вам не кажется странным?
вы считаете по словам, поэтому логичнее проверять на пробелы,

if z[i] = ' '

но тут ещё не всё, обьявление могут писать не 1 строчку, а перейти на следующую строку с помощью Enter, тогда логичнее так

  if (z[i] = ' ') or (z[i] = #13)

, но текст обьявления может заканчиватся пробелом, или #13 это вроде тоже надо предусмотреть? как вы думаете? тогда меняем цикл и просматриваем не до последнего символа а до предпоследнего

for i:=1 to length(z)-1 do

вроде нормально..
Упс неа ненормально, а если в конце не 1 пробел, или в конце несколько раз нажали Enter?, и это ещё не всё, также может быть и в середине текста (не 1 пробел или несколько раз нажатый Enter).

В общем всё писать не буду, вы же хотите учится (я ведь правильно понял?), включайте мыслительный процесс. Код не просто набирайте, а думайте что он делает, и то ли это что вы хотите получить.

Подсказка: попробуйте сначала преобразовать текст обьявления (удалить лишние пробелы, удалите символы #13 (или замените пробелами а потом удалите лишние пробелы)), а потом считайте слова. Как это сделать? Голова литература и поиск по форуму вам в руки. Только помните если задача не решается целиком, её надо разбить на несколько более мелких задач, и уже решать как их делать.

Как появятся конкрктные вопросы, по вашему коду, милости просим.


печать проверить не смогу, раврепорта нет и ставить нет желания.

[Харламов Юрий]

у меня время поджимает сильно! не успею разобраться с этим((((((
помогите плиз....

[vovk]

хотел сказать по поводу времени, передумал, по теме: желаете кода пожалуйста.

z:=DBMemo1.Lines.Text;
 z:=TRIM(StringReplace(z,#13,' ',[rfReplaceAll,rfIgnoreCase]));
 z:=StringReplace(z,#10,'',[rfReplaceAll,rfIgnoreCase]);
 while pos('  ',z)>0 do
 z:=StringReplace(z,'  ',' ',[rfReplaceAll,rfIgnoreCase]);
 z:=z+' ';
 summ:=0;
 for i:=1 to length(z) do
 begin
   if (z[i] = ' ') then summ:=summ+1;
 end;
         if RadioGroup1.ItemIndex=0 then
         DBEdit2.text:=IntToStr(Form2.Table1.FieldByName('FCena').AsInteger*summ);
              if RadioGroup1.ItemIndex=1 then
         DBEdit2.text:=IntToStr(Form2.table1.FieldByName('UCena').AsInteger*summ);

[Харламов Юрий]

большое спасибо!