Привет всем! Я хотел бы узнать можно ли загрузить текст в TRichEdit из Ini файла
Не используя LoadFromFile?

Я пишу вроде того:

Код

//По нажатию на кнопку var  F: TIniFile; begin  F := TIniFile.Create('//192.168.0.25/newversionmemcl/load.ini');  RichEdit1.Lines := F.ReadString('PazdelLoad', 'Ctrokaedit2', 'tekst po ymolchaniy');  F.Destroy; end;

Подскажите плиз что я делаю неправильно.
Зарание спасибо...

Это сообщение отредактировал(а) W_A_K_E - 19.1.2005, 16:23

Код

RichEdit1.Lines.Text := .......

это как? RichEdit1.Lines := 'blabla'

Код

RichEdit1.Lines.add('blabla');

Код

var F: TIniFile; begin F := TIniFile.Create('//192.168.0.25/newversionmemcl/load.ini'); RichEdit1.Lines.Add := F.ReadString('PazdelLoad', 'Ctrokaedit2', 'tekst po ymolchaniy'); F.Destroy; end;

Добавлено @ 16:33
Метод Add добавляет строку в множество строк (TStrings)

Цитата(dsergey @ 19.1.2005, 16:32)

Метод Add добавляет строку в множество строк (TStrings)

Я тоже сначало думал методом добавления, но ошибся именоо тут он не работает...

Цитата(Dynamic @ 19.1.2005, 16:25)

RichEdit1.Lines.Text := .......

Спасибо вот это самое то!

попробуй этот код

Код

var F: TIniFile; begin F := TIniFile.Create('//192.168.0.25/newversionmemcl/load.ini'); RichEdit1.Lines.Add(F.ReadString('PazdelLoad', 'Ctrokaedit2', 'tekst po ymolchaniy')); F.Destroy; end;

Добавлено @ 17:16
я не пойму тебе надо значение считать или полностью загрузить весь ini (т.е. полное содержимое ini-файла)

Объясни!!!!

Цитата

Я тоже сначало думал методом добавления, но ошибся именоо тут он не работает...

даже проверил, все прекрасно работает с lines.add

Цитата(Rennigth @ 19.1.2005, 17:19)

даже проверил, все прекрасно работает с lines.add

все правильно.


W_A_K_E, смотри иногда спавку (там есть примеры)

Цитата(dsergey @ 19.1.2005, 17:15)

var F: TIniFile; begin F := TIniFile.Create('//192.168.0.25/newversionmemcl/load.ini'); RichEdit1.Lines.Add(F.ReadString('PazdelLoad', 'Ctrokaedit2', 'tekst po ymolchaniy')); F.Destroy; end;

Да и правда работает. Видимо я что то забыл поставить в тот раз, но сейчас все ок!
Одно только но При ненахождении сетевого адреса форма начинает зависать. Вообще я сам использую такой код:

Код

var F: TiniFile; begin  F := TIniFile.Create('\\127.0.0.1\test\test.ini');  RichEdit1.Lines.Strings[0] := F.ReadString('info', '0', 'Загрузка не удачна!');  RichEdit1.Lines.Strings[1] := F.ReadString('info', '1', '');  RichEdit1.Lines.Strings[2] := F.ReadString('info', '2', '');  RichEdit1.Lines.Strings[3] := F.ReadString('info', '3', '');  RichEdit1.Lines.Strings[4] := F.ReadString('info', '4', '');  RichEdit1.Lines.Strings[5] := F.ReadString('info', '5', '');  RichEdit1.Lines.Strings[6] := F.ReadString('info', '6', '');  RichEdit1.Lines.Strings[7] := F.ReadString('info', '7', '');  RichEdit1.Lines.Strings[8] := F.ReadString('info', '8', '');  RichEdit1.Lines.Strings[9] := F.ReadString('info', '9', '');  RichEdit1.Lines.Strings[10] := F.ReadString('info', '10', '');  RichEdit1.Lines.Strings[11] := F.ReadString('info', '11', '');  RichEdit1.Lines.Strings[12] := F.ReadString('info', '12', '');  RichEdit1.Lines.Strings[13] := F.ReadString('info', '13', '');  RichEdit1.Lines.Strings[14] := F.ReadString('info', '14', '');  RichEdit1.Lines.Strings[15] := F.ReadString('info', '15', '');  RichEdit1.Lines.Strings[16] := F.ReadString('info', '16', '');  RichEdit1.Lines.Strings[17] := F.ReadString('info', '17', '');  RichEdit1.Lines.Strings[18] := F.ReadString('info', '18', '');  RichEdit1.Lines.Strings[19] := F.ReadString('info', '19', '');  RichEdit1.Lines.Strings[20] := F.ReadString('info', '20', '');  RichEdit1.Lines.Strings[21] := F.ReadString('info', '21', '');  RichEdit1.Lines.Strings[22] := F.ReadString('info', '22', '');  RichEdit1.Lines.Strings[23] := F.ReadString('info', '23', '');  RichEdit1.Lines.Strings[24] := F.ReadString('info', '24', '');  RichEdit1.Lines.Strings[25] := F.ReadString('info', '25', '');  RichEdit1.Lines.Strings[26] := F.ReadString('info', '26', '');  RichEdit1.Lines.Strings[27] := F.ReadString('info', '27', '');  RichEdit1.Lines.Strings[28] := F.ReadString('info', '28', '');  RichEdit1.Lines.Strings[29] := F.ReadString('info', '29', '');  RichEdit1.Lines.Strings[30] := F.ReadString('info', '30', '');  F.Destroy; end;

Этим самым он загружает 30 строк из любого ini файла.

Цитата(dsergey @ 19.1.2005, 17:15)

я не пойму тебе надо значение считать или полностью загрузить весь ini (т.е. полное содержимое ini-файла)

да нужно полностью, но код выше загружает только по строкам.

Это сообщение отредактировал(а) W_A_K_E - 21.1.2005, 11:04

а зачем так?
так

Цитата

F := TIniFile.Create('\\127.0.0.1\test\test.ini');

я имею в ввиду сетевой адрес, это ведь товя машина, т.е. локальная
ну, если так надо тогда, я просто спросил.

а можно еще так

Код

F := TIniFile.Create('\\localhost\test\test.ini');

Добавлено @ 11:33

Цитата

Этим самым он загружает 30 строк из любого ini файла.

наверное не 30 строк, а 30 значений
Добавлено @ 11:41
т.к. если читать 30 строк, то может быть такое в ini-файле

Код

[MAIN] param1=10 param1=11 param1=12 [SECOND] param2=20 param2=21 param2=22

А проще нельзя написать:

Код

var F: TiniFile; i: integer; begin F := TIniFile.Create('\\127.0.0.1\test\test.ini'); RichEdit1.Lines.Add(F.ReadString('info', '0', 'Загрузка не удачна!')); for i := 1 to 30 do   RichEdit1.Lines.Add(F.ReadString('info', IntToStr(i), '')); F.Free; end;

Цитата(Dynamic @ 21.1.2005, 12:36)

Код var F: TiniFile; i: integer; begin F := TIniFile.Create('\\127.0.0.1\test\test.ini'); RichEdit1.Lines.Add(F.ReadString('info', '0', 'Загрузка не удачна!')); for i := 1 to 30 do   RichEdit1.Lines.Add(F.ReadString('info', IntToStr(i), '')); F.Free; end;

Вообщето правильно, но у меня почему то он не сработал я его немного изменил

Код

var F: TIniFile; i:integer; begin //Загрузка информации F := TIniFile.Create('\\127.0.0.1\test\test.ini'); RichEdit1.Lines.Strings[0]:=(F.ReadString('info', '0', 'Загрузка не удачна!')); for i := 1 to 30 do   RichEdit1.Lines.Strings[i]:=(F.ReadString('info', IntToStr(i), '')); F.Free; end;

а вобще отличный код спасибо
ведб можно как то еще через масив сделать надо бы подумать а вобще этот самый оптимальный

Да кстати в test.ini у меня прописано:

Цитата

[info] 1=строка1 2=строка2 3=строка3 4=строка4 5=строка5 6=строка6 7=строка7 8=строка8 9=строка9 10=строка10 11=строка11 12=строка12

Это сообщение отредактировал(а) W_A_K_E - 21.1.2005, 15:30

Сообщи в конце концов, конечную цель свойго топика. Ведь

Цитата(W_A_K_E @ 19.1.2005, 16:10)

загрузить текст в TRichEdit из Ini файла

наверное не конечная цель. Может ты просто не умеешь работать с Ini-файлоами или реестром.
Задай новый вопрос или сделай поиск по форуму.

Сделай проще: RichEdit1.Lines.Text:=F.ReadString('info', '0', 'Загрузка не удачна!');

Плюс еще вот это:
if RichEdit1.Lines.Text <> 'Загрузка не удачна!'
then
{продолжаем....}

W_A_K_E
не могу понять, почему Lines.Add у тебя не работает. Сейчас это может и не принципиально, но разобраться с этим, имхо, стОит.
Где-то что-то ты не договариваешь........

Цитата(dsergey @ 21.1.2005, 17:00)

Сообщи в конце концов, конечную цель свойго топика.

Вообще я разрабатываю программу для очистки места на харде и в оперативке
А эта функция нужна мне для проверки новой версии... Тоесть пользователь ныжимает кнопку "Новая версия" и кокраз начинает срабатывать эта самая функция... Загрузка информации происходит из ini файла в окно TRichEdit, а если файл обновления не найден, то выдается сообщение "Загрузка не удачна!". Конечно я пробовал через LoadFromFile... Все как бы работает, но как только файл не найден, то выходит ошибка типа файл не найден. А вот как выключить ошибку это вопрос посложнее вот я и решил попробовать через такой путь

Цитата(dsergey @ 21.1.2005, 17:00)

Может ты просто не умеешь работать с Ini-файлоами или реестром

Конечно может не все я знаю про него ну самое основное знаю...

Цитата(Dynamic @ 21.1.2005, 17:42)

не могу понять, почему Lines.Add у тебя не работает. Сейчас это может и не принципиально, но разобраться с этим, имхо, стОит. Где-то что-то ты не договариваешь........

Может быть я что то желаю неправильно, но пишу вот так

Код

uses IniFiles; procedure TForm1.Button1Click(Sender: TObject); var F: TiniFile; i: integer; begin F := TIniFile.Create('\\127.0.0.1\test\test.ini'); RichEdit1.Lines.Add(F.ReadString('info', '0', 'Загрузка не удачна!')); for i := 1 to 30 do   RichEdit1.Lines.Add(F.ReadString('info', IntToStr(i), '')); F.Free; end;

Выдает ошибку при компиляции на слово add

Цитата(W_A_K_E @ 21.1.2005, 20:21)

Может быть я что то желаю неправильно, но пишу вот так Код uses IniFiles; procedure TForm1.Button1Click(Sender: TObject); var F: TiniFile; i: integer; begin F := TIniFile.Create('\\127.0.0.1\test\test.ini'); RichEdit1.Lines.Add(F.ReadString('info', '0', 'Загрузка не удачна!')); for i := 1 to 30 do   RichEdit1.Lines.Add(F.ReadString('info', IntToStr(i), '')); F.Free; end; Выдает ошибку при компиляции на слово add

Конкретнее, какую ошибку?????????
Добавлено @ 10:31
У МЕНЯ НЕ ВЫДАЕТ НИ КАКИХ ОШИБОК И НОРМАЛЬНО КОМИЛИРУЕТСЯ

Прошу извенения, теперь все работает...
Всем спасибо!

Цитата(W_A_K_E @ 22.1.2005, 14:25)

теперь все работает...

Теперь - это когда??? Что было-то?? Не стесняйся, все свои ;)

Цитата(W_A_K_E @ 21.1.2005, 20:21)

А эта функция нужна мне для проверки новой версии...

тогда может имеет смысл использовать не ИниФайл, а НТТП (т.е. get или post)?!
например:
при нажатии "новая версия" отправляется запрос:
www.mysoft.com/get_new_version.php?product_id={...}&current_version={...}
где
product_id - код твоей программы
current_version - установленная у юзера версия софта
скрипт обрабатывает эти данные и отправляет ответ (новой версии нет, ил линк для скачивания новой версии)

все дело в том что я организую это по локальной сети а не в интрнете.