random и Delphi 7

[X-tender]

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

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

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

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

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

s:='+edit1.text+';

должно быть

s:=edit1.text;

[ToNY667]

Clondike о спс, а то я по тетрадке делаю, а там везде это с плюсиками.

как связать progressbar и загрузку файла в листбокс?

[Clondike]

ToNY667

Когда какие-то проблемы с переменными, проверяй их значения в Watch List (в меню Run - Add Watch) в пошаговом режиме выполнения программы.

[ToNY667]

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

[bayarookie]

как связать progressbar и загрузку файла в листбокс?

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

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

[X-tender]

а еще желательно, чтобы не использовать зря 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;

[ToNY667]

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;

аааа Чорд

[X-tender]

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]

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

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

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

[Clondike]

ToNY667

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

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

[ToNY667]

Clondike спс!

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

[smileman]

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

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

[ToNY667]

мне то как раз и надо (может я просто некорректно выразился)

как минимум пачкой - 8 бит

[smileman]

пачкой в 8 бит -уже не побитно, а побайтно )

[ToNY667]

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

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

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

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

(dbo.mb, поле cost)

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

[ToNY667]

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

Windows 7

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

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

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

[coder]

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

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

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

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

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

[ToNY667]

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

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

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

ок"

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

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

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

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

[coder]

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

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

ок"

дык, по русски же пишет. учётка службы какая ?

в логах windows что за месседж появляется?