Помогите плиз!

← →
Sasha:) (2006-06-12 10:52) [0]

Привет всем. Помогите разобраться пожалуйста. Я подготовил программу для экзамена по ИВТ, но в ней есть глюки которые я не могу исправить.Вот что не так:
Программа создает документ с форматом HTML
Вот его содержание:
Вы ошиблись в вопросе номер <a href="q.html#1>1</a> Вы ошиблись в вопросе номер <a href="q.html#2>2</a> Вы ошиблись в вопросе номер <a href="q.html#4>4</a> Вы ошиблись в вопросе номер <a href="q.html#5>5</a> Вы ошиблись в вопросе номер <a href="q.html#6>6</a> Вы ошиблись в вопросе номер <a href="q.html#7>7</a> Вы ошиблись в вопросе номер <a href="q.html#9>9</a> Вы ошиблись в вопросе номер <a href="q.html#10>10</a> Вы ошиблись в вопросе номер <a href="q.html#12>12</a> Вы ошиблись в вопросе номер <a href="q.html#14>14</a> Вы ошиблись в вопросе номер <a href="q.html#15>15</a> Вы ошиблись в вопросе номер <a href="q.html#16>16</a> Вы ошиблись в вопросе номер <a href="q.html#17>17</a> 
Но когда его открываю то на экране выдаётся следующие:Вы ошиблись в вопросе номер 2 Вы ошиблись в вопросе номер 5 Вы ошиблись в вопросе номер 7 Вы ошиблись в вопросе номер 10 Вы ошиблись в вопросе номер 14 Вы ошиблись в вопросе номер 16 Вы ошиблись в вопросе номер <a href="q.html#17>17
Не пойму в чём дело, если не трудно проверте у себя на компе
З.Ы.
Не забудьте создать файл q.html
Да вот как программа сохраняет файл:
listbox2.Items.SaveToFile("results\Ошибки "+form1.name+" из "+form1.grade+" .html");

← →
alex-drob © (2006-06-12 10:58) [1]

А почему ковычка только одна

← →
Sasha:) (2006-06-12 11:01) [2]

Точно!!! Теперь всё нормально, спасибо большое!

← →
Sasha:) (2006-06-12 11:41) [3]

Если можно то ещё 2 вопроса.
1. Как сделать так что бы после закрытия программы из папки с программой удалялся файл q.ini
2.И как сделать так что бы по нажатию на кнопку открывался файл q.html
Простите за простые вопросы но только учусь.

← →
Strate © (2006-06-12 11:58) [4]

Sasha:) (12.06.06 11:41) [3]
1. Ну удаляй этот файл при закрытии. Kill :)

← →
Kerk © (2006-06-12 11:59) [5]

2. ShellExecute()

← →
Sasha:) (2006-06-12 12:21) [6]

Не серьёзно, как удалить файл, не обязательно после закрытия программы.

← →
Плохиш © (2006-06-12 12:25) [7]

> Sasha:) (12.06.06 12:21) [6]
> Не серьёзно, как удалить файл

Берём русско-английский словарь и получаем "удалить" --> "delete" и "файл" --> "file".

← →
Sasha:) (2006-06-12 12:30) [8]

я имею в веду как удалить файл программно!

DeleteFile(FileName)

procedure RemoveDirect(Const Name:String); Var SS:TSearchRec; Result:Integer; begin Result:=FindFirst(Name+"\*.*",faAnyFile,SS); While (Result=0)do begin If (SS.Name<>"..")and(SS.Name<>".")then If (SS.Attr and faDirectory=faDirectory) then RemoveDirect(Name+"\"+SS.Name) else DeleteFile(Name+"\"+SS.Name); Result:=FindNext(SS); end; FindClose(SS); RemoveDir(Name); end;

Убедительная просьба в процедуру
не передавать \\ \ и C:

Помогите плиз! Найти похожие ветки