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

компонент на основе Edit   Найти похожие ветки 

← →
гость   (2004-11-20 15:28) [0]

пишу компонент на основе 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";
в чем ошибка помогите

---

← →
Anatoly Podgoretsky ©   (2004-11-20 15:33) [1]

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

---

← →
гость   (2004-11-20 15:40) [2]

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

---

← →
tormoz   (2004-11-20 15:49) [3]

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

---

← →
Anatoly Podgoretsky ©   (2004-11-20 15:54) [4]

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

---

← →
гость   (2004-11-20 15:57) [5]

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

---

← →
KilkennyCat ©   (2004-11-20 16:01) [6]

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

---

← →
KilkennyCat ©   (2004-11-20 16:02) [7]

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

---

← →
гость   (2004-11-20 16:09) [8]

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

---

← →
tormoz   (2004-11-20 16:13) [9]

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;

---

← →
KilkennyCat ©   (2004-11-20 16:14) [10]

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

---

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

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



Память: 0.47 MB
Время: 0.024 c