Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
Bast © (2007-09-07 10:15:00)
Можно ли как нибудь увеличить быстродействие?
procedure TForm1.Button1Click(Sender: TObject); var a:array of char; p:char; max,min,k,i:integer; s:string; f:textfile; label bb, nn, kk, ee; begin if savedialog1.Execute then begin assignfile(f,savedialog1.FileName); rewrite(f); s:=edit1.Text; setlength(a,length(s)); for i:=1 to length(s) do a[i]:=s[i]; min:=strtoint(edit2.Text); max:=min-1; nn: inc(max); if max>strtoint(edit3.Text) then goto ee; k:=max; s:=''; //setlength(s,max); for i:=min to max do begin s:=s+a[1]; writeln(f,s); //вывод s end; bb: for i:=2 to length(a) do begin s[k]:=a[i]; writeln(f,s); //вывод s end; kk: dec(k); if k=0 then goto nn; p:=s[k]; for i:=1 to length(a) do if p=a[i] then break; if i=length(a) then goto kk else begin s[k]:=a[i+1]; writeln(f,s); //вывод s for i:=k+1 to max do begin s[i]:=a[1]; writeln(f,s); //вывод s end; k:=max; goto bb; end; end; ee: closefile(f); showmessage('OK!'); end; end.

sniknik (2007-09-07 18:01:00) [1]
> При нештатной ситуации стержни как раз опускают - они затормаживают реакцию.
вот видишь, мне тоже не стоит доверять писать в этой теме...

Dib@zol (2007-09-07 17:53:00) [2]
> [23] DVM © (07.09.07 17:45)

Если бы там были ТАКИЕ программеры, то именно "Поднять"!!! Так как из за глюков работать прога будет диаметрально противоположно задуманному :) стержни опустятся и Чернобыль отложится на месяц-другой...

DVM (2007-09-07 17:45:00) [3]

> sniknik © (07.09.07 12:28) [19]
> Jeer © (07.09.07 12:17) [17]
> ага, особенно на кнопке - "охладить реактор" (выключить/поднять
> стержни и т.д.) в нештатной ситуации.

При нештатной ситуации стержни как раз опускают - они затормаживают реакцию.

Джо (2007-09-07 15:43:00) [4]

> function GenRandomText(chars:Word):string;
> var i : Word;
> begin
> Result:='';
> for i:=1 to chars do
> Result:=Result+chr(Random(255-32)+32);
> end;

function GenRandomText(chars:Word):string; var i : Word; begin SetLength (Result, Chars); for i:=1 to chars do Result[I] := chr(Random(255-32)+32); end;

Dib@zol (2007-09-07 15:34:00) [5]
от это брееед... давно с таким не встречался <%()
Может, так?

program RT;
{$APPTYPE CONSOLE}

var
F : TextFile;
sc, lc, k : Word;
fn : string;

function GenRandomText(chars:Word):string;
var i : Word;
begin
Result:='';
for i:=1 to chars do
Result:=Result+chr(Random(255-32)+32);
end;

begin
Write('Enter a filename with full path: ');
Readln(fn);

WriteLn('');
Write('Enter the number of symbols in each line: ');
Readln(sc);

WriteLn('');
Write('Enter the line count: ');
Readln(lc);

AssignFile(F, fn);
Rewrite(F);
for k:=1 to lc do
Writeln(F, GenRandomText(sc));
CloseFile(F);

WriteLn('');
Write('File successfully created! Press any key to exit... ');
ReadLn;
end.

Riply (2007-09-07 12:33:00) [6]
> [19] sniknik © (07.09.07 12:28)
Ну мы же в "начинающих". Вот и к ТЗ соответствующие требования :)
>а сгенерите-ка мне молодую, симпатичную подругу.... как раз в отпуск не с кем ехать.
А вот это уже в "WinAPI" надо спрашивать :)

sniknik (2007-09-07 12:28:00) [7]
Jeer © (07.09.07 12:17) [17]
ага, особенно на кнопке - "охладить реактор" (выключить/поднять стержни и т.д.) в нештатной ситуации.

Riply © (07.09.07 11:56) [14]
> Так он же написал в [6] Bast
написал
> Это генератор случайных букв, чисел короче чего угодно)
чего угодно говорите? а сгенерите-ка мне молодую, симпатичную подругу.... как раз в отпуск не с кем ехать.

серьёзно считаешь написанное нормальным ТЗ, по которому могут что то сделать?

novill (2007-09-07 12:17:00) [8]
Ясно.

Jeer (2007-09-07 12:17:00) [9]

> Anatoly Podgoretsky © (07.09.07 11:38) [11]

> А ты гарантируешь это?

Если он научится писать следующий код во всех случаях нажатия на кнопки,
то безопасность атомных станций я гарантирую:)

procedure TForm1.Button1Click(Sender: TObject);
begin
end;

Anatoly Podgoretsky (2007-09-07 12:01:00) [10]
> novill (07.09.2007 12:00:15) [15]

Может и так. А ты читал его другие вопросы?

novill (2007-09-07 12:00:00) [11]
> [13] Anatoly Podgoretsky © (07.09.07 11:51)

Ну пусть попробует. Все-таки программа начинается с ТЗ.

Может человек учился по книжке "Turbo Pascal 5.5"!?

Riply (2007-09-07 11:56:00) [12]
>[12] novill © (07.09.07 11:46)
>Ты подробно опиши что твой код делать должен. Может, кто тебе нормальный код на это напишет :)
Так он же написал в [6] Bast

Anatoly Podgoretsky (2007-09-07 11:51:00) [13]
Вот так и будет кормиться чужим кодом.
Посоветовал бы лучше профессию сменить, сколько есть разных других профессий, где не хватает людей, дворники например.

novill (2007-09-07 11:46:00) [14]
> [6] Bast (07.09.07 11:11)

Ты подробно опиши что твой код делать должен. Может, кто тебе нормальный код на это напишет :)

Anatoly Podgoretsky (2007-09-07 11:38:00) [15]
> Jeer (07.09.2007 11:32:10) [10]

А ты гарантируешь это?
Кроме них есть еще множество областей с катастрофическими последствиями.

Jeer (2007-09-07 11:32:00) [16]

> Anatoly Podgoretsky © (07.09.07 11:17) [9]

Да почему ж - пусть пишет, не думаю, что меня это беспокоит.
Есть же садомазохисты - главное, чтобы в атомную станцию или банковское ПО такой код не попал.

Anatoly Podgoretsky (2007-09-07 11:17:00) [17]
> Jeer (07.09.2007 10:54:04) [4]

Пример того кому писать не надо.

Вася Правильный (2007-09-07 11:14:00) [18]

> Это генератор случайных букв, чисел короче чего угодно)

Random, Chr

Вася Правильный (2007-09-07 11:12:00) [19]
нереально

Bast (2007-09-07 11:11:00) [20]
Код написан мною) Это генератор случайных букв, чисел короче чего угодно)

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »