[Darbis_Alorienna]

Дарбис как обычно "везучая". Все варианты лаб по программированию с картинками пояснительными и даже с кучками кода, болеее того, их-то решить можно было и без пояснений - ну в смысле я смогла бы, а мне достался только с заданием.

думаю

В общем-то мне только нужно понять, какими свойствами пользоваться. изучаем DRAG&DROP. Собственно в DELPHI надо реализовать вывод в Memo-поле содержимого текстового файла, выбранного с помощью TDirectoryListBox и TFile ListBox. Какдиректорию с файлом связать, поняла. Условие переноса - текстовый файл и FileListBox? У меня пока получается переместить весь ящик с файлами в область Memo. А как сделать, чтобы перемещался именно текст из конкретного файла?

Comments

[Тореадорский скрипач]

теоретически - одно из свойств FileListBox, типа значение выбраного файла.

[Тореадорский скрипач]

не помню конкретно, кажется было что-то вроде Edit

[Molideus]

че-то незнакомые компоненты, но скорее всего так:

var
f: Textfile;
Fname: String;
s: string;
begin
Fname:=DirectoryListBox1.Item[номер записи].Text+'\'+FileListBox1.Item[номер записи].Text; //вот тут не знаю как обратиться точно к имени папки/файла
Reset (f, Fname);
While not Eof(f) do
begin
Readln(f,s);
Memo1.Lines.Add(s); //вроде так... давно я с Мемо не работал )
end;
emd;

[Тореадорский скрипач]

а почему Fname как string объявлен?

[Molideus]

Тореадорский скрипач, потому что в него заносится путь к файлу. Сама переменная файла - f

вы странные человеки) у файл лист бокса есть свойство селектед) из него вытаскивается переменная типа файлнейм(файлнейм - тип сортед стринг - сразу раскладывает на расширение и т.д.). это имя файла. из директори лист бокса вытаскивается то же селектед поле только с путем до файла. дальше вообще банально)

[Тореадорский скрипач]

хм..

как мне сказал Zakhnafein я снова пришел и сказал что "вы все говно и не лечитесь а я самая красивая ..) "ну или как там правильная цитатка? ) так вот обидеть никого не хотел и предложенный Zakhnafein вариант тоже очень даже имеет право на жизнь) )))

[Darbis_Alorienna]

Тореадорский скрипач , FileName.
Zakhnafein , а почему Reset (f, Fname);? так можно разве без assign? И я пробовала через LoadFromFile в мемо записать...
Angellik , я не поняла что с selected делать, выуживала имя выделенного файла как FileListBox1.FileName сразу... и искала в нем '.txt'
Но в итоге все равно ошибок до фига. Чтобы файл считался выделенным, приходится на него кликнуть, и потом еще раз чтобы перетащить. В конце когда выдает ShowMessage "файл успешно перемещен", я жму ОК и он куда-то перенаправляет с формы в дополнительный код. Ну и запись в мемо не проходит ибо я что-то не так делаю..

[Darbis_Alorienna]

procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
//Если переносим ФайлЛистБокс вида тхт то истина , иначе - выводим сообщение об ошибке
var s:string; i:integer;
begin
s:='';
if (Sender is TMemo) and (Source is TFileListBox) then
begin
s:=FileListBox1.FileName; //запись имени файла в строку
if pos('.txt',s)<>0 then //проверяем формат файла
begin
Accept:=True ;
ShowMessage('Файл успешно перемещен');
end
else
begin
Accept:=False;
ShowMessage('Файл переместить нельзя');
end;
end
else
begin
Accept:=False;
ShowMessage('Файл переместить нельзя');
end;
end;


эта процедура работает, но отдельным кликом надо выделить файл, иначе FileName не считывается.
после вывода сообщения showmessage жму ок и вместо того чтобы убрать сообщение прога перенаправляет к автоматическому коду

[Darbis_Alorienna]

(пишу по памяти)
procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer); //при сбрасывании загружаем текст файла
var t: TextFile; s:string;
begin
s:=FileListBox1.FileName;
AssignFile(t,s);
Reset(t); //здесь выдает направильное число параметров, но вроде всегда так делали(
Memo1.Lines.LoadFromFile(t);
CloseFile(t);
end;

вот оно пока не работает, я где-то сильно туплю

[|twilight|]

Матерь божья.....

[Molideus]

а почему Reset (f, Fname);? так можно разве без assign?

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

[Darbis_Alorienna]

|twilight| ,мм?

[|twilight|]

Darbis_Alorienna, я конечно имею ооочень небольшое представление о программировании имею, но твоя фраза "пишу по памяти" меня убила)))).
А так все просто - мне не понять этого языка)

[Darbis_Alorienna]

|twilight| ну там не все по памяти, только серединка между бегин-энд, а такое каждый программист на зубок уже знать должен. а у меня вот ошибка там кажись) во всяком случае оно не фурычит( да мне кажется, ты бы и понял, если бы поработал с ним, просто тебе оно не надо)) ну и дневники съели все отступы для удобства понимания сделанные

[Molideus]

Darbis_Alorienna, кстати, Reset b вообще вся процедурка "по памяти" написана правильно, вроде.

[Darbis_Alorienna]

Zakhnafein, догадываюсь... просто пока отдыхаю от этого=)