Здравствуйте ! Помогите составить алгоритм который выведет
в memo от 0 до 255 в двоичной системе т.е от 00000000 до 11111111.
Как бы это всё зациклить ... просто ручками писать долго

Заранее благодарен.

вот черкнул тебе программку правда на С(первести думаю не сложно будет тк в ней нет ни чего...)

Код

#include <stdio.h> void PrintBin(int n) {     for (int i = 7; i > -1; i--)         ((n >> i) & 0x01) ? printf("1") : printf("0");     printf("\n"); } int main(int argc, char* argv[]) {     for (int i = 0; i < 256; i++)         PrintBin(i);     return 0; }

или так еще можно (n & (1 << i))

просьба модераторам не бить за код на С

Это сообщение отредактировал(а) chaos - 21.7.2005, 12:46

Код

procedure TForm1.Button1Click(Sender: TObject); var b:Byte;     i:integer;     s:string; begin  s:='00000000';  for b:=0 to $FF do   begin    for i:=0 to 7 do     if (b and ($80 shr i))>0 then s[i+1]:='1' else s[i+1]:='0';    Memo1.Lines.Add(s);   end; end;

Код

function IntToBin(Value: integer; Digits: integer): string; var   i: integer; begin   result := '';   for i := 0 to Digits - 1 do begin     if Value and (1 shl i) > 0       then result := '1' + result       else result := '0' + result;   end; end;  procedure TForm1.Button1Click(Sender: TObject); var a, i: Integer; begin for i:= 0 to 255 do   begin   a:= StrToInt(IntToBin(StrToIntDef(IntToStr(i), 0), 10));   Memo1.Lines.Add(IntToStr(a));   end; end;

А теперь весь этот код впиши в Thread и будешь рад не тормозящей программе.

SoWa, все ради вас

Код

function IntToBin(Value: integer; Digits: integer): string; var   i: integer; begin   result := '';   for i := 0 to Digits - 1 do begin     if Value and (1 shl i) > 0       then result := '1' + result       else result := '0' + result;   end; end; procedure MemoAdd; var a, i: Integer; begin for i:= 0 to 255 do   begin   a:= StrToInt(IntToBin(StrToIntDef(IntToStr(i), 0), 10));   Form1.Memo1.Lines.Add(IntToStr(a));   end; end; procedure TForm1.Button1Click(Sender: TObject); var h:cardinal; begin CreateThread(nil,128,@MemoAdd,self,0,h); end;

PS. Только у меня и предыдущий код не сильно уж вешал прогу.

Спасибо всем большое !

Цитата(Poseidon @ 21.7.2005, 21:04)

SoWa, все ради вас ...

Poseidon, да будет Вам известно что VCL не реентерабельна! А посему, подобное использование ее компонентов (Form1.Memo1.Lines.Add(IntToStr(a))) внутри не не основного потока НЕ ДОПУСТИМО! Это приводит к возникновению трудно выявимых ошибок.

Цитата

Это приводит к возникновению трудно выявимых ошибок.

Трудно не согласится. Но в данном случае, когда код, да и сама опирация, не сложны, такой проблемы нет. В других случаях возможно. Но нужно-ли усложнять код для простого примера?

Цитата(Poseidon @ 22.7.2005, 13:35)

Но нужно-ли усложнять код для простого примера?

Увы, обязательно!
Дело в том, что человек после учебы на "простом" примере, будет переносить такой подход и на сложные примеры, и на реальные программы. А ошибки в мультипоточных приложениях тем и плохи, что у автора на компе это может ввоще ни разу не привести в ошибкам, а у пользователя - нате вам. Но, даже если и у автора будут возникать ошибки, то лишь время от времени. По собственному опытку знаю - ловить такие ошибки крайне тяжело, практически невозможно. Только полным переписыванием программы!
Вот например, сейчас вынужден держать отключенным режим Hyper-Threading у своего компа только лишь потому что автор одиной из программ которой я пользуюсь не позаботился о потокобезопасности кода в своей программе. Вот и происходит что при загрузке он даже ось умудряется поставить ра*ом. Причем, автор не доступен, и отказаться от проги пока не могу .



Это сообщение отредактировал(а) Girder - 22.7.2005, 13:18

Петрович, если не лень, приведи пример правильного кода. А то водать так со мной и приключилось:

Цитата

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

Конечно не всегда, но я пользуюсь этим "ошибочным" вариантом.

Цитата(Poseidon @ 22.7.2005, 15:36)

Петрович, если не лень, приведи пример правильного кода.

Ща некогда. Вечерком постараюсь набросать.

Петрович
Всегда пользовался методом

Код

Synchronize

, если есть обращение к VCL.
Это являеться привильным ?????

Цитата(Marriage @ 22.7.2005, 15:24)

Это являеться привильным ?????

Лично я думаю является. Т.к.:

Цитата

procedure Synchronize(Method: TThreadMethod); Этот метод относится к секции protected, т. е. может быть вызван только из потомков TThread. Delphi предоставляет программисту метод Synchronize для безопасного вызова методов VCL внутри потоков. Во избежание конфликтных ситуаций, метод synchronize дает гарантию, что к каждому объекту VCL одновременно имеет доступ только один поток.

Вот набросал тут немного. Так правильно?

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     procedure MemoAdd;   end; type   TMyThread = class(TThread)   private     { Private declarations }   protected     procedure Execute; override;   end; var   Form1: TForm1; implementation {$R *.dfm} function IntToBin(Value: integer; Digits: integer): string; var   i: integer; begin   result := '';   for i := 0 to Digits - 1 do begin     if Value and (1 shl i) > 0       then result := '1' + result       else result := '0' + result;   end; end; procedure TForm1.MemoAdd; var a, i: Integer; begin for i:= 0 to 255 do   begin   a:= StrToInt(IntToBin(StrToIntDef(IntToStr(i), 0), 10));   Memo1.Lines.Add(IntToStr(a));   end; end; procedure TMyThread.Execute; begin Synchronize(Form1.MemoAdd) end; procedure TForm1.Button1Click(Sender: TObject); var Thread: TMyThread; begin Thread:= TMyThread.Create(False); end; end.