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

Все правильно, у меня перекрытие с MС++ идет :)

kak? Найти похожие ветки