Форум: "Потрепаться";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Внизкак? Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c