ToNY667

teKILLajazz Поздравляю!!! Здоровья вам всем и счастья!

Саксофониста наймите. Чтобы тихо и ненавязчиво играл, приятно очень, у брата было такое. Моя же душа тает от "бесаме мучо" в исполнении саксофона. Поздравляю! =)

deniska я то че? я лишь пересказал, что сказал мне отец когда-то. а он обычный представитель рабочего класса. говорит то, что видит.

nefi, от отца слышал, который в Корее уже 5-6 лет работает, что корейские девушки до 20-ти все уродины, а потом их херурги штампуют под такой типаж. У них там это дело очень развито (пластическая хирургия). а по теме няяяяяяяяяяяя ^__^ кавай!

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

Есть фантастика (Шекли, Силверберг, Кинг), ужасы (Дин Кунц). Ищу Харуки Мураками. Обеими руками за.

Tokimemotakaki

procedure TForm1.zap1Click(Sender: TObject); begin begin b:=1; randomize; AssignFile(f,'c:\1.txt'); // привязка названия к переменной {$I-} Append(f); // открыть файл для добавления if IOResult<>0 then // если ошибка открытия (напр. файла нет) begin {$I-} Rewrite(f); // создать новый файл {$I+} if IOResult<>0 then // ошибка создания файла begin ShowMessage('Ошибка создания файла C:\1.TXT'); Exit; end; end; randomize(); for n:=1 to 20000 do begin [b]write(f,'way #',n,' ');[/b] <----цикл после прохода одного раза останавливается на этой строчке с сообщением и\о еррор 103 и делфи критически закрывается begin for i:=1 to 32 do begin Write(f,' ',random(2)); // запись в файл строки с символами перевода строки if i=32 then writeln(f); end; end; CloseFile(f); fileempt:=false; chten1.enabled:=true; n1.enabled:=true; end; end; end; аааа Чорд

у кого-нибудь есть книги Харуки Мураками? хочу поменяться. есть Дин Кунц, Шекли и прочее

Jinchuuriki Оооо... мне Харуки Мураками очень нравится, "мой любимый спутник" и много других буквально проглотил. попробуй почитать Толкиена. книга краше чем фильм.

ТопоРУС Вахмистрово - 10 или 15к одна стока.

О боже мой, судя по виду гениталиев у них сифилис или триппер или с чем там прыщики?

Haku-jin прям так взял за рога и откусил кусок мяса с шерстью =)

Поесть вкусно и сытно - счастье! На самом деле, провести время с любимой - вот для меня счастье.

просто у меня в файле 65535 строк. и нужно все это запихнуть в листбокс. дабы ниче не висло надо сделать прогресс бар.

Clondike о спс, а то я по тетрадке делаю, а там везде это с плюсиками. как связать progressbar и загрузку файла в листбокс?

Po$amax@ неа, не пойдет

s:='+edit1.text+'; n:=strtointdef(s,0); FileContent:=TStringlist.Create(); FileContent.LoadFromFile( 'C:\1.txt' ); Listbox1.Items.add(FileContent[n]);///добавляем n-ю строку end; выявляет только первую строку =(

а как сделать в листбоксе так, чтобы из файла выдиралась нужная строка и отображалась в листбоксе?

читай то, что тебя захватит с первой страницы. вот фильмы какие любишь смотреть?

Оспади еще одна ошибка: procedure TForm3.Button1Click(Sender: TObject); begin ListBox1.Items.LoadFromFile('c:\1.txt'); s:=edit1.text; val(s,n,0); Listbox1.itemindex:=n; end; где она здесь может быть? пишет Incompatible types

эт все у меня есть. тока как бы код делфевский в плеер впихнуть и там редактировать?

X-tender ты мой герой =)

Венера даааа.... полностью с тобой согласен =)))

Венера на такие случаи есть косынка и прочие мелкие "радости"