Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
6-48237
mifi
2002-06-02 22:11
2002.08.15
получение IP адреса


1-48029
proc
2002-08-03 14:12
2002.08.15
Multi Languages StringGrid


1-48133
Чайник2
2002-08-01 07:15
2002.08.15
CD-ROM


1-48068
Fisper
2002-08-04 17:25
2002.08.15
поместить в Edit1 то, что стоит после


3-47916
DAO
2002-07-28 17:34
2002.08.15
Как NULL поменять на 0 в SQL?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский