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

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

---

← →
Lord Warlock ©   (2002-04-29 09:41) [6]

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

---

← →
Lord Warlock ©   (2002-04-29 14:04) [7]

> MBo © (29.04.02 09:40)

а где try, где finally?
ай яй яй :)

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.013 c