Форум: "Потрепаться";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Внизспасибо ,но... Найти похожие ветки
← →
mimino (2002-04-29 09:51) [0]s: tstrings;
begin
if key = vk_up then
begin
s := TStringList.Create; // Нужно создавать объект (причем не абстрактного класс TStrings)
try
s.add ("sssssssssssssssss");
s.SaveToFile("c:\sasha.txt");
finally
s.Free;
end;
end;
end;
end.
Вы немогли бы расписать каждое действие
← →
gek (2002-04-29 09:58) [1]Ну куда уж конкретнее.
Специально для тех, кто в бронепоезде.
← →
Lord Warlock (2002-04-29 10:00) [2]s: tstrings; <- Обьявляем переменную типа TStrings
а можно S: TStringList
begin
if key = vk_up then <- это твое
begin
s := TStringList.Create; <- создаем объект класса
try <- try finally end чтобы при ошибке не терять память
s.add("sssssssssssssssss"); <- что-то добавляешь
s.SaveToFile("c:\sasha.txt"); <- сохраняешь в файл
finally
s.Free; <- объект уничтожается в любом случае
end;
← →
Виктор Щербаков (2002-04-29 10:00) [3]Гм... Да... а в ту же ветку не судьба?
Зачем лишние-то плодить?
> Вы немогли бы расписать каждое действие
Я могу конечно, но лучше прочитать что-нибудь для начинающих по ООП и Object Pascal. Проще будет для нас обоих, т.к. чтобы изложение получилось полным, мне придется минут 10 долбить клаву.
Сам посуди, чтобы пришло полное понимание примера, нужно изучить основные концепции ООП, обработку исключительных ситуаций, ну и кое что из синтаксиса Object Pascal. Т.е. нет у меня сильного желания лекции читать.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c