Форум: "Потрепаться";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Внизkak? Найти похожие ветки
← →
mimino (2002-04-29 09:24) [0]пишет: (variable"s"might not have been initializet)кампилирует но не сохраняет.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var s:tstrings;
begin
if key=vk_up then
s.add("sssssssssssssssss");
s.SaveToFile("c:\sasha.txt");
← →
Lord Warlock (2002-04-29 09:26) [1]Класс TStrings - абстрактный, ничего у тебя не получится
используй TStringList
← →
Виктор Щербаков (2002-04-29 09:28) [2]Lord Warlock © (29.04.02 09:26)
Объявить можно и так.
Главное потом вызвать конструктор не абстрактного потомка.
← →
Lord Warlock (2002-04-29 09:35) [3]Виктор Щербаков © (29.04.02 09:28)
обьявить нужно только так, иначе работать не будет
TStringList - потомок TStrings
← →
Виктор Щербаков (2002-04-29 09:39) [4]Что именно работать не будет?
Посмотрите мой пример здесь.
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1020056705&n=3
← →
MBo (2002-04-29 09:40) [5]>Lord Warlock
а как тебе?
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var s: tstrings;
begin
if key=vk_up then begin
s:=TSTRINGLIST.Create; /// не забудем создать ;)
s.add("sssssssssssssssss");
s.SaveToFile("c:\sasha.txt");
s.free;
end;
end;
хотя заводить объект ради одной строки ни к чему.
стоит воспользоваться textfile
← →
Lord Warlock (2002-04-29 09:41) [6]Все правильно, у меня перекрытие с MС++ идет :)
← →
Lord Warlock (2002-04-29 14:04) [7]> MBo © (29.04.02 09:40)
а где try, где finally?
ай яй яй :)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c