как?

← →
mimino (2002-04-29 09:05) [0]

прошу помочь.
var s:tstrings;
begin
if key=vk_up then
s:="sss";\\неправильно
s.savetofile(".....");

← →
Виктор Щербаков (2002-04-29 09:06) [1]

s.add("sss");

← →
mimino (2002-04-29 09:22) [2]

пишет: (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");

← →
Anatoly Podgoretsky (2002-04-29 09:23) [3]

mimino (29.04.02 09:05)
А объект будет Пушкин создавать

← →
fnatali (2002-04-29 09:24) [4]

Это значит, что если key не vk_up, то тебе нечего сохранять. :)
Инициализируй переменную s перед if.

← →
Виктор Щербаков (2002-04-29 09:25) [5]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
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;

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