Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Загрузить 8-ую строку из INI-файла.

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

Anatoly Podgoretsky (2002-07-14 14:29:00) [1]
Или как тебе сказал MBO, правда это окольный путь, но нужен для некоторых случае, а еще лучше если ты будешь использовать компонент TIniFile
Не пожалей время на ознакомление с ним в хелпе и если есть в книгах

TTCustomDelphiMaster (2002-07-14 13:53:00) [2]
Greenvich (14.07.02 12:58)
Я английский бы выучил только за то, что на нем написаны хелпы :)

MBo (2002-07-14 13:29:00) [3]
>Greenvich
еще раз
MBo © (14.07.02 10:49)

Greenvich (2002-07-14 13:24:00) [4]
>Anatoly Podgoretsky

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

Anatoly Podgoretsky (2002-07-14 13:11:00) [5]
Странно, что именно восьмую, не только прочить, а особенно записать, ведь в результате можно получить испорченный ини файл.
Особенно ини файлов в том, что тебе не обеспечивается фиксированная последовательность секций и параметров.
Для работы с ини файлами есть специальный класс TIniFile

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

MBo (2002-07-14 13:07:00) [6]
Что именно не получается? Как пробовал?

Greenvich (2002-07-14 12:58:00) [7]
Всё равно не получается. Вобщем идея чуть изменилась: нужно текст из Edit1, при клике на кнопку, записать в файл file.dat
восьмой строчкой. Дайте пожалуйста код.

MBo (2002-07-14 10:49:00) [8]
Разберись по хелпу в методах и свойствах TStringList, задачу твою решить будет легко, и очень пригодится в будущем

Greenvich (2002-07-14 10:45:00) [9]
2TTCustomDelphiMaster

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

TTCustomDelphiMaster (2002-07-13 21:59:00) [10]
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-13 21:15:00) [11]
>Такой простой код должен уметь писать сам

Не умею :-(((

Anatoly Podgoretsky (2002-07-13 21:11:00) [12]
Работать не как с ини файлом, а как с текстовым файлом, любые методы доступа, TStrings, TextFile
Такой простой код должен уметь писать сам

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »