помогите чайнику плз

← →
hahol (2007-08-04 21:03) [40]

а куда помущаюца имена выбранных файлов
веть opendialo.filename - это не массив а перменная типа стринг
как мне их кинуть потом в listbox

← →
Alien1769 © (2007-08-04 21:07) [41]

> как мне их кинуть потом в listbox

лучше добавить /add/

← →
Zagaevskiy © (2007-08-04 21:07) [42]

насколько я понял OpenDialog1.Files[i]

← →
hahol (2007-08-04 21:14) [43]

а как узнать сколко файлов я выбрал

← →
begin...end © (2007-08-04 21:14) [44]

> помущаюца

От слова "мущщина"?

← →
Zagaevskiy © (2007-08-04 21:17) [45]

OpenDialog1.Files.Count наверное? и вообще, тебя не учили нажимать
CTRL+<пробел>?

← →
hahol (2007-08-04 21:18) [46]

меня не кто ни чему не учил
все сам
а за помощь спасибо все пашет

← →
Zagaevskiy © (2007-08-04 21:19) [47]

именование с "0" начинается(это если не знаеш)

← →
Zagaevskiy © (2007-08-04 21:20) [48]

> hahol (04.08.07 21:18) [46]
> меня не кто ни чему не учил
> все сам
> а за помощь спасибо все пашет

так прям и сам? вообще ни разу не видел как кто-то программирует?

← →
Zagaevskiy © (2007-08-04 21:24) [49]

кстати.Если сам учишся нужно понимание процесса.например:\
extractfilename не начинает тупо искать по компу, где есть такой файл, а выделяет имя из строки, которую ты туда засуниш. заранее пожалста :)))))))

← →
{RASkov} © (2007-08-04 21:38) [50]

> hahol
На тебе почти готовый плейлист....
Кинь на форму TListBox, TButton и TOpenDialog... и проставь обработчики в инспекторе...

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFileData = class SFileName, SortName, SExt: String; end; TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; ListBox1: TListBox; procedure Button1Click(Sender: TObject); procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); procedure ListBox1DblClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin OpenDialog1.Options:=OpenDialog1.Options+[ofAllowMultiSelect]; ListBox1.Style:=lbOwnerDrawFixed; end; procedure TForm1.Button1Click(Sender: TObject); var FD: TFileData; N: Integer; begin if OpenDialog1.Execute then for N := 0 to OpenDialog1.Files.Count-1 do begin FD:=TFileData.Create; FD.SFileName:=OpenDialog1.Files[N]; FD.SExt:=ExtractFileExt(FD.SFileName); FD.SortName:=ExtractFileName(FD.SFileName); Delete(FD.SortName, LastDelimiter(".", FD.SortName), Length(FD.SExt)); Delete(FD.SExt, 1, 1); ListBox1.AddItem("", FD); end; end; procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var FD: TFileData; W: Integer; begin with TListBox(Control) do begin Canvas.FillRect(Rect); FD:=TFileData(Items.Objects[Index]); Canvas.Font.Color:=clRed; DrawText(Canvas.Handle, PChar(FD.SExt), -1, Rect, DT_RIGHT); W:=Canvas.TextWidth(FD.SExt); Rect.Right:=Rect.Right-W; Canvas.Font.Color:=clBlue; DrawText(Canvas.Handle, PChar(FD.SortName), -1, Rect, DT_LEFT or DT_END_ELLIPSIS); end; end; procedure TForm1.ListBox1DblClick(Sender: TObject); var FD: TFileData; begin FD:=TFileData(ListBox1.Items.Objects[ListBox1.ItemIndex]); ShowMessage(FD.SFileName); end; end.
Разберешься....

Только в примере в [50] нет никаких проверок, так, что будь внимательным при обращении к Объектам в листбоксе...

> вообще ни разу не видел как кто-то программирует?

А ты, примеру, часто видел?

> [37] Zagaevskiy © (04.08.07 20:52)
> to {RASkov} CоРРи
> Оченно извЕняюсь

Я с ошибками пишу не специально.... ошибаюсь и стыдно потом за свои посты...
И в этой ветке.... ошибок понаделал как в русском так и в английском...(
А уж очень молодых, прет походу специально делать ошибки.... :)
Я хоть и сам не "стар" еще, но, что-то "невтыкает" ошибаться... :о)
Впрочем фик с ними... с ошибками... но порой думаешь, что же именно имелось ввиду )
Сорри за оффтоп...

> {RASkov} © (04.08.07 22:19) [53]

Объясняю :

1 : "{RASkov} © (04.08.07 20:39) [28]
> [27] hahol (04.08.07 20:38)
> там нет свойства multiselect

ошибаешься..."

2 : "Zagaevskiy © (04.08.07 20:46) [34]

> ошибаешься...

А как?"

Вот и всё. Насчёт ошибок - я торопился

> Yanis © (04.08.07 21:46) [52]
>
> > вообще ни разу не видел как кто-то программирует?
>
> А ты, примеру, часто видел?

Да, доввольно часто :) примерно месяц сидел и смотрел, как один чел писал игру "О счастливчик" даже подсказывал чего-то(это было на заре моего программирования :]).Теперь понимаю, как мы там ВСЁтупо делали.

помогите чайнику плз Найти похожие ветки