компонент на основе 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;

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

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