| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

компонент на основе Edit [D7, WinXP]

гость ©   (2004-11-20 15:28:00) 

пишу компонент на основе edit' а
if pos('exp',Text)=1 then
begin
 F:=TStringList.Create();
 F.LoadFromFile('C:\1.txt');
 F.Strings[2]:='0';
 F.SaveToFile('C:\1.txt');
 F.Free;
end;
вопрос почему не сохраняется 0 в файле
на 3 строке F.Strings[2]:='0';
в чем ошибка помогите

---

KilkennyCat   (2004-11-20 16:14:00) [1]

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

---

tormoz   (2004-11-20 16:13:00) [2]

if pos('exp',Text)=1 then
begin
F:=TStringList.Create();
F.LoadFromFile('C:\1.txt');
if f.strings.count<3 then
 while f.strings.count<3 do
  f.strings.add('');
F.Strings[2]:='0';
F.SaveToFile('C:\1.txt');
F.Free;
end;

---

гость   (2004-11-20 16:09:00) [3]

тогда подскажите как сделать так чтобы:
если ехр не первая в строке в файл 1.txt в 3 строке записывался 0.

---

KilkennyCat   (2004-11-20 16:02:00) [4]

странно, что ошибка не возникает...

---

KilkennyCat   (2004-11-20 16:01:00) [5]

еще раз читаем >  [4]

---

гость   (2004-11-20 15:57:00) [6]

даже если вторую F.String[1] все равно не пишет 0

---

Anatoly Podgoretsky   (2004-11-20 15:54:00) [7]

Одна строка говоришь, а обращаешься к третей, которой нет

---

tormoz   (2004-11-20 15:49:00) [8]

if f.strings.count<3 then
while f.strings.count<3 do
f.strings.add('');//?

---

гость   (2004-11-20 15:40:00) [9]

одна строка в ней функция записана из MyEdit'а
надо чтобы на третьей строке( если нет exp) был 0

---

Anatoly Podgoretsky   (2004-11-20 15:33:00) [10]

А сколько у тебя строк?

---

Наверх