Главная страница
    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.007 c
3-81169
lexa-m
2002-07-04 08:42
2002.07.25
Ув. Мастера, объясните наконец


14-81475
Dimka Maslov
2002-06-26 17:50
2002.07.25
Uniform Base of Procedures and Function for Delphi


3-81149
kaif
2002-06-28 23:17
2002.07.25
FK в IB6.0 - Firebird. Невозможно массовое удаление-добавление


1-81265
volph
2002-07-13 21:36
2002.07.25
string -> BSTR


3-81199
Grrey
2002-07-02 18:46
2002.07.25
Классическая ситуация





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