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

Вниз

Загрузить 8-ую строку из INI-файла.   Найти похожие ветки 

 
Greenvich   (2002-07-13 20:51) [0]

При нажатии на Button1, нужно записать текст, который находится в Edit1 в файл file.ini в восьмую строчку!! Вот. А при нажатии на Button2, загрузить из того же файла восьмую строчку и вставить её в Edit2. Уважаемые люди, т.к. я не очень разбираюсь в программировании, не подскажите ли вы (если не трудно) код? :-)


 
Anatoly Podgoretsky   (2002-07-13 21:11) [1]

Работать не как с ини файлом, а как с текстовым файлом, любые методы доступа, TStrings, TextFile
Такой простой код должен уметь писать сам


 
Greenvich   (2002-07-13 21:15) [2]

>Такой простой код должен уметь писать сам

Не умею :-(((


 
TTCustomDelphiMaster   (2002-07-13 21:59) [3]

99.9% взято из delphi help

procedure TForm1.Button3Click(Sender: TObject);
var
F: TextFile;
S, filename: string;
i: integer;
begin
filename := "c:\windows\win.ini";
if fileexists(filename) then { Display Open dialog box }
begin
AssignFile(F, FileName); { File selected in dialog box }
Reset(F);
S := "no strings in file";
i := 0;
while (not EOF(F)) or (i < 8) do
begin
Readln(F, S); { Read the first line out of the file }
inc(i)
end;
CloseFile(F);
Edit1.Text := S; { Put string in a TEdit control }
end;
end;


 
Greenvich   (2002-07-14 10:45) [4]

2TTCustomDelphiMaster

Спасибо! А как записать в ini-файл текст из Edit1, но только восьмой строкой?


 
MBo   (2002-07-14 10:49) [5]

Разберись по хелпу в методах и свойствах TStringList, задачу твою решить будет легко, и очень пригодится в будущем


 
Greenvich   (2002-07-14 12:58) [6]

Всё равно не получается. Вобщем идея чуть изменилась: нужно текст из Edit1, при клике на кнопку, записать в файл file.dat
восьмой строчкой. Дайте пожалуйста код.


 
MBo   (2002-07-14 13:07) [7]

Что именно не получается? Как пробовал?


 
Anatoly Podgoretsky   (2002-07-14 13:11) [8]

Странно, что именно восьмую, не только прочить, а особенно записать, ведь в результате можно получить испорченный ини файл.
Особенно ини файлов в том, что тебе не обеспечивается фиксированная последовательность секций и параметров.
Для работы с ини файлами есть специальный класс TIniFile

"Дайте пожалуйста код." - это ты давай свой код


 
Greenvich   (2002-07-14 13:24) [9]

>Anatoly Podgoretsky

Насчёт того, что может быть испорченный ini-файл ты прав. OK. А как тогда вставить в Edit1 текст, который идёт в ини-файле после такой строчки:
number=xxxx
Вот эти "хххх" и надо вставить.


 
MBo   (2002-07-14 13:29) [10]

>Greenvich
еще раз
MBo © (14.07.02 10:49)


 
TTCustomDelphiMaster   (2002-07-14 13:53) [11]

Greenvich (14.07.02 12:58)
Я английский бы выучил только за то, что на нем написаны хелпы :)


 
Anatoly Podgoretsky   (2002-07-14 14:29) [12]

Или как тебе сказал MBO, правда это окольный путь, но нужен для некоторых случае, а еще лучше если ты будешь использовать компонент TIniFile
Не пожалей время на ознакомление с ним в хелпе и если есть в книгах



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

Форум: "Основная";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.005 c
3-81162
IvanovSergey
2002-07-03 13:32
2002.07.25
Округление в IB6


14-81409
books
2002-06-26 15:00
2002.07.25
Электронные книги по программированию


1-81235
TTCustomDelphiMaster
2002-07-13 21:35
2002.07.25
Помогите!!! Два часа сижу вату катаю. Запарился уже.


3-81133
DKalinin
2002-07-02 11:49
2002.07.25
как грамотно передать дату на сервер(независимо от настроек)


8-81388
Vvedensk
2002-03-15 14:33
2002.07.25
Вопрос на засыпку: как создать dll и оттуда грузить JPG





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский