Скачать: CL | DM;

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

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

Привет всем. Помогите разобраться пожалуйста. Я подготовил программу для экзамена по ИВТ, но в ней есть глюки которые я не могу исправить.Вот что не так:
Программа создает документ с форматом HTML
Вот его содержание:

Вы ошиблись в вопросе номер <a href="q.html#1>1</a><br>
Вы ошиблись в вопросе номер <a href="q.html#2>2</a><br>
Вы ошиблись в вопросе номер <a href="q.html#4>4</a><br>
Вы ошиблись в вопросе номер <a href="q.html#5>5</a><br>
Вы ошиблись в вопросе номер <a href="q.html#6>6</a><br>
Вы ошиблись в вопросе номер <a href="q.html#7>7</a><br>
Вы ошиблись в вопросе номер <a href="q.html#9>9</a><br>
Вы ошиблись в вопросе номер <a href="q.html#10>10</a><br>
Вы ошиблись в вопросе номер <a href="q.html#12>12</a><br>
Вы ошиблись в вопросе номер <a href="q.html#14>14</a><br>
Вы ошиблись в вопросе номер <a href="q.html#15>15</a><br>
Вы ошиблись в вопросе номер <a href="q.html#16>16</a><br>
Вы ошиблись в вопросе номер <a href="q.html#17>17</a><br>

Но когда его открываю то на экране выдаётся следующие:
Вы ошиблись в вопросе номер 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]

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

---

← →
Rial ©   (2006-06-12 12:31) [9]

DeleteFile(FileName)

---

← →
Rial ©   (2006-06-12 12:33) [10]

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:

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c