[opal]

Я совсем чайник. Вопросов много. Пожалуйста, помогите найти решения!
При нажатие на кнопку должно произойти что то вроде

Image1.Picture.LoadFromFile(ExtractFilePath('C:\Pr ogram Files\Borland\Delphi7\Projects\редактор\data'+list box1.Items[listbox1.itemindex]));

Выдает ошибку. Как правильно прописать команду чтобы картинка находила сама путь и открывалась?

[NumLock]

Image1.Picture.LoadFromFile('C:\Program Files\Borland\Delphi7\Projects\редактор\data\'+listbox1.Items[listbox1.itemindex]);

[T-dayne]

незабывай про расширение!
Если оно прописано в листбоксе то попробуй так:

Код:

Image1.Picture.LoadFromFile(ExtractFileDir(application.exename)+\data\'+list box1.Items[listbox1.itemindex]);

Если расширения в листбоксе нет, попробуй так:

Код:

Image1.Picture.LoadFromFile(ExtractFileDir(application.exename)+\data\'+list box1.Items[listbox1.itemindex]+'.bmp');

ЗЫ где красное-можешь вставить свое расширение.

[opal]

большое Спасибо! Все таки это моя невнимательность

[opal]

OpenDialog1.Filter := 'Только формат "png"|*.png';
OpenDialog1.InitialDir:=ExtractFilePath(ParamStr(0 ))+'\data\';
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);

+К дополнению мне нужно сделать так что бы в строке Edit1.text появилась название картинки. В идеале должно выглядеть так:

OpenDialog1.Filter := 'Только формат "png"|*.png';
OpenDialog1.InitialDir:=ExtractFilePath(ParamStr(0 ))+'\data\';
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Edit1.Text:=Image1.Name;

По идеи мне нужно вырезать путь оставляя только имя файла. Но как это сделать?

[opal]

Помогите!
Все разобрался

Function ExtractFilePath('Полный путь к файлу'):String; <= Путь к файлу, без имени файла
Function ExtractFileName('Полный путь к файлу'):String; <= Имя файла

[opal]

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

[stervochka]

помогите кто нибудь решите вот эту задачку


Разработать программу перекодировки текстового файла на основе кода следующего вида:
“А” – “Т”;
“B” – “M”; и т.д.

[lmikle]

stervochka, во первых, а не желает ли уважаемая создать отдельную тему. Это раз.
Два. Где ваш код? Или вы ошиблись разделом?
Три, по существу. Надо идти по строке циклом и заменять соответсвующие символы по таблице перекодировки.

Код:

const
  CodeTable : Array [65..66] Of ('T','M');
...
function RecodeChar(C : Char) : Char;
begin
  If (Chr(C) >= Low(CodeTable)) Or ((Chr(C) <= High(CodeTable)))
    Then Result := CodeTable[Chr(C)]
    Else Result := C;
end;
...
for I := 1 To Length(S) Do
  S[i] := RecodeChar(S[i]);

[Страдалецъ]

Код:

const
  CodeTable : Array [65..66] Of ('T','M');

Это что за синтаксис? Из какого диалекта выплыл?

[lmikle]

Да, что-то я убежал мыслью вперед. Должно быть:

Код:

const
  CodeTable : Array [65..66] Of Char = ('T','M');