Перейти к содержанию

random и Delphi 7


Рекомендуемые сообщения

выявляет только первую строку =(

в смысле? Кто выявляет?

Listbox1.Items.add(FileContent[0]);
Listbox1.Items.add(FileContent[1]);
Listbox1.Items.add(FileContent[2]);

вот это три строки добавляет?

Добавлено спустя 47 секунд:

s:='+edit1.text+';

должно быть

s:=edit1.text;

Ссылка на комментарий
как связать progressbar и загрузку файла в листбокс?


ProgressBar1.Max := FileContent.Count;
for i := 0 to FileContent.Count - 1 do
begin
ProgressBar1.Position := i;
ListBox1.Item.Add(тут что-то там
Application.ProcessMessages;
end;

может напутал чего

Ссылка на комментарий

а еще желательно, чтобы не использовать зря Processmessages сделать примерно так


procedure LongTimeProcedure();stdcall;
begin
Начало_цикла
действия....
inc(YourForm.Progressbar.Position,1);
еще_всякие_действия...
конец_цикла
showmessage('Процесс закончен');
end;
//и вызов этой функции допустим по нажатию кнопки
procedure TYourForm.ButtonClick(Sender: TObject);
begin
CreateThread(nil,0,@LongTimeProcedure,nil,0,ThreadId);
showmessage('Процесс пошел...');
end;

Ссылка на комментарий

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;

аааа Чорд

Ссылка на комментарий

ToNY667

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
write(f,'way #',n,' ');
for i:=1 to 32 do Write(f,' ',random(2)); // запись в файл строки с символами перевода строки
writeln(f);
end;
CloseFile(f);
fileempt:=false; chten1.enabled:=true;
n1.enabled:=true;
end;
procedure TForm1.zap1Click(Sender: TObject);

Ссылка на комментарий

Все, последний штрих моей работы:

В общем есть комбобокс и листбокс. в комбобоксе есть пункты. нужно, чтобы по клику по этим пунктам в листбокс вставлялся текст.

как это сделать?

Ссылка на комментарий

ToNY667

Научись юзать справочную систему. Один раз в жизни научишься, и большинство вопросов отпадут сами собой. Берешь компонент, который интересует, изучаешь все его свойства, методы, события и всё. (На выделенном компоненте нажимаешь F1. Когда нужно выяснить какую-то функцию, пишешь ее (в редакторе кода), наводишь на нее курсор и нажимаешь Ctrl+F1)

Для ComboBox юзай обработчик события OnChange. (Двойной клик на белом поле события и в код вставляется процедура обработчика).

Ссылка на комментарий

Clondike спс!

а как сделать так, чтобы любой файл принимался в бинарном виде? я вот себе это как представляю. Пользователь вводит полный путь до файла. Открывается файл, считывается побитно информация, опять же побитно записываясь в простой текстовый файл. так вот как сделать так, чтобы файл считывался побитно?

Ссылка на комментарий
  • 2 месяца спустя...

:) Изврат какой-то..без обид )) Лично я никакого смысла не вижу в этом,

ты знаешь,что из себя представляет информация? К примеру, ASCII код символа "A" - 0x41 - по-моему :) или побитово- 01000001. Так что, читаться все равно будет как минимум пачкой - 8 бит, или 1 байт.

Ссылка на комментарий
  • 3 месяца спустя...

В общем я опять не дружу с делфи.

Как сделать так, чтобы выбирая компонент комбобокса

(if combobox1.itemindex=1//2,3 then cost:=cost+)

вобщем надо сделать, так чтобы к переменной cost добавлялась цена из другой БД

(dbo.mb, поле cost)

на текущей форме в table1 указана dbo.priem

Ссылка на комментарий
  • 1 месяц спустя...

В общем пытался установить SQL Serever 2008 Enterprise

Windows 7

в процессе установки DBEngine (устанавливаю только database engine, никаких reporting servises & analyse servises)

возникает ошибка входа в систему.

что делать - ума не приложу

Ссылка на комментарий

возникает ошибка входа в систему.

что делать - ума не приложу

т.е. все должны "ум приложить", что у вас за ошибка. телепаты ушли за водкой.

http://msdn.microsoft.com/en-us/library/ms143506.aspx#EE32

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

Ссылка на комментарий

coder, так и написано

"Ошибка при запуске службы

Ошибка во входе в систему

ок"

Добавлено спустя 1 минуту 11 секунд:

да устанавливался он у меня уже под 7-й

потом просто конфигурацию обновил, винду переставил.

вот с новой конфигурацией и не устанавливается

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...