Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

! [D6, Win95/98]

Страницы: < 1 2
diks © (2003-01-20 20:41:00)
Делаю так:
Файл - создать - приложение
Проект - удалить из проекта - удаляю форму
Проект - исходный текст

Там
program Project1;
begin
end.

Далее пишу (между бегином и ендом)
var lst: TStrings;
begin
lst := TStringList.Create;
lst.LoadFromFile ("C:\Hook.log");
if lst[0] <> "Текст" then
begin
lst[0] := "Текст";
lst.SaveToFile ("C:\Windows\Hook.log");
end;
lst.Free;
end;

Не работает выдает ошибку
Statement expected but "var" found
Help помогите!!!!!!!!!!!!!!!!!!!

diks (2003-01-21 00:45:00) [21]
И gsu можно последний вопрос! Команда winexec что сделать чтобы и она её нравилась!?

gsu (2003-01-21 00:21:00) [22]
uses Classes;

...
var
lst: TStringList;

Юрий Зотов (2003-01-20 22:55:00) [23]
> diks © (20.01.03 22:35)

ОК, подсказываю. Структура Паскаль-программы имеет следующий вид:

[program Name;]
[раздел описаний]
begin
[исполняемый раздел]
end.

Запомните это НАВСЕГДА. В этом и причина ошибки. Кстати, она у Вас не единственная. Следующая будет такая - компилятор не распознает TStrings и TStringList.

Все остальное - см. vuk © (20.01.03 22:38)

vuk (2003-01-20 22:50:00) [24]
to Моджахед:
>А то уж больно примитивную ошибку выдает компилятор.
В вопросе ключевые слова вот эти:
>Далее пишу (между бегином и ендом)

Из чего следует, что человек языка не знает совсем, так что книжки читать - единственный правильный выход. А что-то писать - это уже потом.

Моджахед (2003-01-20 22:47:00) [25]
А ты код подай, троянописец. Может и помогут тебе. А то уж больно примитивную ошибку выдает компилятор.

А знаешь, что случится, когда ты код приведешь? Выругаются все, плюнут на него (код), и скажут, ласково: "А нечего тут трояны выдумывать, почитай книжку". И я скажу тебе, ласково: "Почитай книжку".

vuk (2003-01-20 22:38:00) [26]
Блин! Книжки в зубы и марш язык учить!

diks (2003-01-20 22:35:00) [27]
Извращенцы!
А подсказать так и не могут!

*gsu* end там нормальный ему "var lst: TStrings;" не нравится!

Моджахед (2003-01-20 22:21:00) [28]
2 Юрий Зотов

А ведь хочется всё сразу: и над хаkep.ru помечтать и остальное.

Возрастное, наверное.

Загнал я ветку в потрепаться, как пить дать, загнал.
Или себя выкинул из ветки. Там виднее.

2 diks
Дай-то Бог, что бы я был не прав.

Юрий Зотов (2003-01-20 21:53:00) [29]
> Моджахед (20.01.03 21:45)
> Учатся.

Лучше бы ПРОГРАММИРОВАТЬ учились, а не фигней, извините, страдать. Правда, это посложнее будет, чем трояны ваять.

Моджахед (2003-01-20 21:47:00) [30]
Я так понимаю, --> "Потрепаться"

?

Моджахед (2003-01-20 21:45:00) [31]
2 Кстати, не сомневаюсь, что файл Hook.log - это лог клавиатурного шпиона в новейшем супер-пупер-трояне.

Ну дык это вроде давно на форумах тут всякие вертятся ;)
Учатся.

Юрий Зотов (2003-01-20 21:36:00) [32]
Потрясающе. Не знаем даже азов Паскаля, книги читать не хотим, английский учить не желаем, перевести сообщение со словарем нам тоже лень, но за хуки смело беремся. Чтобы потом закричать: "Help, помогите!!!!!!!!!!!!!!!!!!!".

Как хорошо, что самолеты строят не программисты.

Кстати, не сомневаюсь, что файл Hook.log - это лог клавиатурного шпиона в новейшем супер-пупер-трояне.

gsu (2003-01-20 21:35:00) [33]
спасибо, ничего особенного (-:|~

Моджахед (2003-01-20 21:34:00) [34]
2 gsu ©
Браво :)

gsu (2003-01-20 20:48:00) [35]
end.

gsu (2003-01-20 20:47:00) [36]
это ты где пишешь в dpr ?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »