Lord Warlock спасибо. А как сделать попроще?

← →
mimino (2002-04-29 15:07) [0]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s,s1: tstringlist;
begin
if key in[ vk_up,vk_left] then
begin
s := TStringList.Create;
try
s.add("[Вверх]");
s.SaveToFile("c:\sasha.txt");
finally
s.Free;
if key = vk_left then
begin
s1 := TStringList.Create;
try
s1.add("[Влево]");
s1.SaveToFile("c:\sasha.txt");
finally
s1.Free;
end;
end;
end;
end;
end;
end.

← →
MBo © (2002-04-29 15:09) [1]

тебе добавлять в файл или заменять его?

← →
mimino (2002-04-29 15:16) [2]

добавлять хочу. Но боюсь огромная получется прога, если бы сделать по компактнее..

← →
Виктор Щербаков © (2002-04-29 15:20) [3]

Для этого проще работать непосредственно с текстовым файлом. Не надо никаких StringList"ов. См. хэлп по функции Append.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
f:textfile;
begin
if key in[ vk_up,vk_left] then
begin
assignfile(f,"c:\sasha.txt");
append(f);
case key of
vk_up: writeln(f,"[Вверх]");
vk_left: writeln(f,"[Влево]");
end;
CloseFile(f);
end;
end.

Lord Warlock спасибо. А как сделать попроще? Найти похожие ветки