Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

Как записать опр. строку по счёту в файл?   Найти похожие ветки 

 
GTA 3   (2002-08-05 12:11) [0]

Нужно, при клике на кнопку, записать текст из Edit1 в файл file.xxx, но 3 строчкой по счёту, И, после знака равно. Т.е. чтобы всё, что было в третей строчке после знака "=" удалить, и вместо того записать строку из Едита1. Если не трудно, подскажите пожалуйста код. Заранее спасибо!!!


 
MBo ©   (2002-08-05 12:43) [1]

Уж очень TIniFile напоминает


 
GTA 3   (2002-08-05 12:45) [2]

Ну пожалуйста, помогите


 
GTA 3   (2002-08-05 12:47) [3]

Да, но это не ини-файл.


 
Skier ©   (2002-08-05 12:47) [4]

>GTA 3

> 3 строчкой по счёту


Это что-то типа такого что ли : ?

1)Name
2)=
3)Value


 
MBo ©   (2002-08-05 12:47) [5]

считай файл в TStringList, замени и запиши назад


 
Anatoly Podgoretsky ©   (2002-08-05 12:47) [6]

Не напоминает, в ИНИ порядок не фиксирован, может меняться


 
GTA 3   (2002-08-05 12:50) [7]

>>Skier

Нет, типа такого:

1)xxxxx=111
2)vvvvv=222
3)bbbbb=333

Так поможете? :)


 
Skier ©   (2002-08-05 12:51) [8]

>GTA 3

см. MBo © (05.08.02 12:43)


 
Виктор Щербаков ©   (2002-08-05 12:52) [9]

GTA 3 (05.08.02 12:50)
Сдается мне, что код тебе придется писать самому.
Но ничего, это полезно.


 
GTA 3   (2002-08-05 14:14) [10]

Ну подскажите пожалуйста код тупому человеку! :(


 
Anatoly Podgoretsky ©   (2002-08-05 14:17) [11]

Ждите своей очереди


 
GTA 3   (2002-08-05 14:40) [12]

Значит всё-таки поможете :)))))
Хорошо, жду.....


 
lenin ©   (2002-08-05 15:01) [13]

var str: string;
k: integer;
StrLst: TStringList;
begin
StrLst:=TstringList.Create;
StrLst.LoadFromFile("File.xxx")$
str:=StrLst[2];
k:=pos("=",str);
if k>0 then
begin
delete(str,k+1,length(str)-k);
str:=str+Edit1.Text;
end;
StrLst[2]:=str;
StrLst.SaveToFile("file.xxx");
end;


 
GTA 3   (2002-08-05 15:03) [14]

Огромное СПАСИБОЧКИ!!!!!!! :))



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

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.016 c
4-48368
_Antiox_
2002-06-10 11:12
2002.08.15
COM. Сервера Автоматизации 1.


3-47940
Дмитрий Жуков
2002-07-23 11:59
2002.08.15
Почему может виснуть многопоточный сервер приложений?


1-48172
FLIZ
2002-08-01 23:34
2002.08.15
как узнать сколько занимают в памяти поля объекта?


6-48225
Adventure
2002-05-31 13:40
2002.08.15
***** Нужна идея ***** (Посещение


6-48222
MoviUm
2002-05-29 16:10
2002.08.15
Как повеситься на порт, как AtGuard ?