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

Вниз

image1   Найти похожие ветки 

 
Narikmen   (2005-05-26 23:06) [0]

Здравствуйте!!!
Как сохранить в INI файлы о том, какой рисунок в image1, а потом загрузить???
Помогите…
Спасибо…


 
KilkennyCat ©   (2005-05-26 23:09) [1]

Не сочтите за грубость, будьте любезны, наберите  в редакторе Делфи TIni и нажмите ctrl + F1. Спасибо.
Всегда к Вашим услугам,
KilkennyCat.


 
Kerk ©   (2005-05-26 23:11) [2]

KilkennyCat ©   (26.05.05 23:09) [1]

Я бы даже рекомендовал уважаемому писать TIniFile
С уважением,
Kerk


 
KilkennyCat ©   (2005-05-26 23:12) [3]

Прошу прощения за навязчивость, и также прошу простить мне наглость обратить Ваше внимание на то, что "какой рисунок" - понятие неоднозначное.
Еще раз извините.
С наилучшими пожеланиями,
KilkennyCat.


 
Kerk ©   (2005-05-26 23:13) [4]

KilkennyCat ©   (26.05.05 23:12) [3]

Не стоит быть таким настойчивым. Ведь каждому понятно, что автор имел ввиду путь к файлу с рисунком.
Прошу прощения, что вмешиваюсь,
Kerk


 
KilkennyCat ©   (2005-05-26 23:13) [5]


> Kerk ©   (26.05.05 23:11)


Уважаемый Kerk!
Хочу выразить вам свою признательность за своевременное, и главное - точное, дополнение.
С надеждой на дальнейшее сотрудничество,
KilkennyCat.


 
Просто Джо ©   (2005-05-26 23:18) [6]


> Narikmen   (26.05.05 23:06)
> Помогите…
> Спасибо…

А что, уже пушеры спать легли?

2 Kerk и KilkennyCat - извините, что прерываю ваш диалог. Продолжайте, пожалуйста :)


 
Kerk ©   (2005-05-26 23:22) [7]

Просто Джо ©   (26.05.05 23:18) [6]
Продолжайте, пожалуйста :)


Все наше внимание устремлено на Narikmen. Если что-то нами было раскрыто не полностью, мы с большим удовольствием уточним.

Рад видеть Вас в этой ветке, Джо.
С уважением,
Kerk


 
Narikmen   (2005-05-26 23:23) [8]

а можете мне конкретный пример написать мне срочно...


 
Kerk ©   (2005-05-26 23:27) [9]

Narikmen   (26.05.05 23:23) [8]

надеюсь что-то подобное Вам поможет:
uses IniFiles;
...
var
 IniFile: TIniFile;
begin
 IniFile := TIniFile.Create("my.ini");
 Image1.Picture.LoadFromFile(IniFile.ReadString("SECTION","PARAM","C:\FILE.BMP");
 IniFile.Free;
end;


С уважением,
Kerk


 
KilkennyCat ©   (2005-05-26 23:31) [10]

Уважаемый Narikmen!
Я бы с удовольствием Вам помог бы, но к сожалению, вследствие удара судьбы (слетели утром винды), я в данный момент не располагаю установленной Делфи. Писать пример по памяти опасаюсь, так как могу нечаянно ввести Вас в заблуждение. Возможно, другие господа сумеют Вам помочь. В противном случае, я опубликую здесь ответ через полтора часа.
Искренне Ваш,
KilkennyCat.


 
Kerk ©   (2005-05-26 23:32) [11]

Narikmen   (26.05.05 23:23) [8]

Нижайше прошу извинить. Забыл показать сохранение пути к файлу.
...
IniFile.WriteString("SECTION","PARAM",FileName);
...


 
Gero ©   (2005-05-26 23:32) [12]

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

uses ..., IniFiles; // Подключаем модуль IniFiles
... // Здесь может быть различный код

procedure TForm1.Button1Click(Sender: TObject); // Обработчик нажатия на кнопку(click) Button1, находящейся на форме Form1, имеющий класс TForm1
var // Объявление переменных
 Ini: TIniFile; // объявляем переменную Ini типа TIniFile
begin // Операторная скобка, начало тела процедуры
 Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + "image.ini"); // Создаем класс TIniFile, который, в свою очередь, должен создать файл image.ini в папке с exe-файлом программы
 try  // Начало блока try..finally
   Ini.WriteString("Image", "Path", Edit1.Text); // Сохраняем в файл путь к картинке, который мы заранее ввели в обьект Edit1 типа TEdit, находящийся на форме Form1
 finally // Этот код выполнится в любом случае
   Ini.Free; // Освобождение памяти, отведенной под переменную Ini
 end; // Операторная скобка, завершение блока try..finally
end; // Операторная скобка, завершение тела процедуры


С почтительностью и уважением, искренне Ваш, Gero


 
KilkennyCat ©   (2005-05-26 23:33) [13]


> [9] Kerk ©   (26.05.05 23:27)


Вы опять воремя, достопочтимый Kerk!
Искренне всохищаюсь Вами!
Однако, рискну обратить внимание, что Ваш вышеприведенный пример лишь наполовину отображает требуемое.
С уважением,
KilkennyCat.


 
Kerk ©   (2005-05-26 23:34) [14]

Gero ©   (26.05.05 23:32) [12]

Вы как всегда правы. Приятно видеть себя в компании настоящего профессионала.

С уважением,
Kerk


 
Gero ©   (2005-05-26 23:34) [15]

Прошу прощения за несколько запоздалый ответ.

С почтительностью и уважением, искренне Ваш, Gero


 
KilkennyCat ©   (2005-05-26 23:36) [16]


> [11] Kerk ©   (26.05.05 23:32)


Простите мне поспешность моих выводов [13].


> [12] Gero ©   (26.05.05 23:32)


Приятно видеть Вас, уважаемый Gero, и видеть, что настоящий джентльмен всегда придет на помощь джентльмену!

C уважением,
KilkennyСat.


 
Gero ©   (2005-05-26 23:36) [17]


> Kerk ©   (26.05.05 23:34)

Спасибо Вам, о Kerk, за такой тонкий комплимент!
Ваше великодушие не знает никаких границ!

С почтительностью и уважением, искренне Ваш, Gero


 
Просто Джо ©   (2005-05-26 23:37) [18]


> [12] Gero ©   (26.05.05 23:32)

А что такое
uses ...
У меня нет такого модуля "..."! Где его взять?
Нефих нерабочий код постить-то :))

П.С. С восхищением и восторженностю жду Ваших разъяснений.
Джо. Просто Джо.


 
Gero ©   (2005-05-26 23:38) [19]


> KilkennyCat ©   (26.05.05 23:36)

Да что Вы, сущие пустяки!

С почтительностью и уважением, искренне Ваш, Gero


 
Marser ©   (2005-05-26 23:39) [20]

Господа!
Спешу выразить Вам своё глубочайшее почтение как высококлассным профессионалам и истинным джентельменам.


 
Kerk ©   (2005-05-26 23:43) [21]

Gero ©   (26.05.05 23:38) [19]
Да что Вы, сущие пустяки!


Я все-таки хотел бы раскрыть и этот аспект вопроса.
Предлагаю уважаемому Джо заменить ... на Windows.

С почтением,
Kerk


 
Gero ©   (2005-05-26 23:43) [22]


> Просто Джо ©   (26.05.05 23:37)

Уважаемый Просто Джо!
Я приношу глубочайшие извинения за свой столь глупый и необдуманный поступок.
Я совершенно забыл написать, что под символом многоточия(...) в моем исходном коде подразумевалось подключение других модулей помимо IniFiles.
Не знаю, сможете ли Вы когда-либо простить меня за это.

Склонив голову, с почтительностью и уважением, искренне Ваш, Gero


 
Просто Джо ©   (2005-05-26 23:54) [23]

[21] Kerk ©   (26.05.05 23:43)
[22] Gero ©   (26.05.05 23:43)

Господа!
Я рад, что вы не оставили меня наедине с моей проблемой.
Спасибо за доходчивые разъяснения.

Всегда Ваш,
 Джо.


 
KilkennyCat ©   (2005-05-26 23:58) [24]

Однако, господа, вам не кажется, что мы совершенно забыли об уважаемой Narikmen? Возможно, ему стало совсем туго, а мы тут бездействуем!
Господин Narikmen! Можем ли мы чем-либо еще быть Вам полезны?
С уважением и беспокойством за Вас,
KilkennyCat.


 
Просто Джо ©   (2005-05-27 00:00) [25]

А может тебе еще полы помыть? А то я могу! (с) Осенний марафон


 
KilkennyCat ©   (2005-05-27 00:00) [26]

Простите, господа, опеяатался. Я, разумеется, имел в виду уважаемого Narikmen, а не как написал выше. Понимаете ли, жена в отпуске уже три недели...
Надеясь на понимание,
KilkennyCat.


 
Anatoly Podgoretsky ©   (2005-05-27 15:15) [27]

Ну что набросились, ну не родной это у него язык. Лучше подождите разъяснений и только потом.



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

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

Наверх




Память: 0.51 MB
Время: 0.037 c
1-1117285735
Malenkii Myk
2005-05-28 17:08
2005.06.14
Программа удаляет саму себя. Реально ?


1-1117032694
Andarko
2005-05-25 18:51
2005.06.14
функция, которая возвращает матрицу


4-1114073734
EthernalWonderer
2005-04-21 12:55
2005.06.14
Получение системного формата даты


14-1117085089
Ozone
2005-05-26 09:24
2005.06.14
Построение грамматик (задолбали заочники)


1-1116961917
Erick
2005-05-24 23:11
2005.06.14
"is not a valid integer value"





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