Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c