Вопрос по компаненту shape?

[KuevProger]

Есть некий массив данных Value[1..9] и есть 9 компонентов Shape. Считывание данных с массива идет в реальном времени.Нужно чтоб при считывании с массива 1 значения згарался Shepe1,при 2 Shepe2 и.т.д???
при необходимости могу написать листинг.

[]Wowan[]

Листинг в студию

[Stilet]

Считывание данных

И че там так долго считывается?

[Ntlegend]

чо такое TShape и де он лежит я незнаю.. от пример аналогичного.. тока с компонентом TEdit

var i:integer;
   mas:array [0..8] of string;
begin
for i:=0 to Form1.ComponentCount-1 do
 if Components[i] is TEdit
  then TEdit(Form1.Components[i]).Text:=mas[StrToInt(Copy(TEdit(Form1Components[i]).Name, 5, 1))-1];
end;

где Form1 - это родитель обьекта
TEdit - тип обьекта
StrToInt(Copy(TEdit(Form1Components[i]).Name, 5, 1))-1 - этономер обьекта (точнее цыфра в конце имени..)

[SERG1980]

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

[KuevProger]

Считывание данных происходит через СОМ порт с ADAM-4019 ADAM-4011
с периодом 0.1 сек

[KuevProger]

Сообщение от ]Wowan[

Листинг в студию

Я какнить безплатно сделаю своими мозгами.

Вот листинг основной формы весь не влазиет
From Stilet: Ну если он не влазит весь то может не нужно его постить? Кому он нужнен такой?

Сообщение от Ntlegend

чо такое TShape и де он лежит я незнаю.. от пример аналогичного.. тока с компонентом TEdit

var i:integer;
   mas:array [0..8] of string;
begin
for i:=0 to Form1.ComponentCount-1 do
 if Components[i] is TEdit
  then TEdit(Form1.Components[i]).Text:=mas[StrToInt(Copy(TEdit(Form1Components[i]).Name, 5, 1))-1];
end;

где Form1 - это родитель обьекта
TEdit - тип обьекта
StrToInt(Copy(TEdit(Form1Components[i]).Name, 5, 1))-1 - этономер обьекта (точнее цыфра в конце имени..)

Это лажа какаято....

[Stilet]

Это лажа какаято....

Это не лажа а пример перебора контролов.
В твоем случае я бы применил FindNextControl для прохода последовально по шейпам

[KuevProger]

Сообщение от Stilet

Это не лажа а пример перебора контролов.
В твоем случае я бы применил FindNextControl для прохода последовально по шейпам

Зачем ты убрал листинг он работий ток убрал не нужное чтоб влезло(((

[KuevProger]

Попытка №2

FUNCTION TForm1.fm_exist(fmName: TComponentName): Boolean;
VAR I: Integer;
BEGIN
Result:=False;
for I := MDIChildCount-1 downto 0 do
  if (TForm(MDIChildren[I]).Name = fmName) then
     begin
     MDIChildren[I].BringToFront;
     MDIChildren[I].WindowState:=wsNormal;
     Result:=True;
     Break;
     end;
END;

Procedure Create_RegFile;
var
n:byte;
begin
RegFileName:=DateToStr(now)+'.txt';
if FileExists(RegFileName) Then
  begin
     RegFile := TFileStream.Create(RegFileName,fmOpenWrite or fmShareDenyRead);
     RegFile.Seek(0,soFromEnd);
  end
   else
  begin
     RegFile:=TFileStream.Create(RegFileName, fmCreate or fmOpenReadWrite or fmShareDenyNone);
 st_file:=st_file+'Время;';
 For  n:=1 To 9 Do
 begin
  st_file:=st_file+'Канал'+IntToStr(n)+';';
  end;
st_file:=st_file+#13+#10;
RegFile.Write(Pchar(st_file)^, Length(st_file));
  end;
  end;

procedure StartRead;
begin
ReadThread:=TReadThread.Create(True);
 with ReadThread do begin
  Priority:=tpNormal;
  FreeOnTerminate:=True;
  Resume;
 end;
end;

procedure clr_com;
begin
PurgeComm(hPort,PURGE_TXCLEAR);
PurgeComm(hPort,PURGE_RXCLEAR);
end;

Function InitADAM():boolean;
begin
 hPort := CreateFile(PChar('COM1'),GENERIC_READ + GENERIC_WRITE,0, nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if hPort = INVALID_HANDLE_VALUE then
 begin
 exit;
 end;
 if not GetCommState(hPort, DCB) then ShowMessage('Ошибка чтения настроек порта') else
  begin
  DCB.BaudRate := CBR_38400;
  DCB.ByteSize :=8;
  DCB.StopBits :=ONESTOPBIT;
  DCB.Parity   := 0;

  if not SetCommState(hPort, DCB) then  ShowMessage('Ошибка записи настроек порта');

CT.ReadTotalTimeoutConstant:=50;
CT.ReadIntervalTimeout :=25;
CT.ReadTotalTimeoutMultiplier :=0;
CT.WriteTotalTimeoutMultiplier := 0;
CT.WriteTotalTimeoutConstant := 0;
If Not SetCommTimeouts(hPort, CT) Then ShowMessage('Ошибка конфигурации таймаутов !!!');
if not SetupComm(hPort, 1024, 1024) then ShowMessage('Ошибка записи настроек буферов порта');
if PurgeComm(hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR) then ;

Result:=True;
end;
end;

Function ReadValue(Module:byte):string;
var

ByteWritten,ByteReaded:dword;
ReadByte:array [0..255] of char;
begin
str:='#0'+inttostr(Module)+#13;
clr_com;
WriteFile(hPort,pchar(Str)^,Length(Str),ByteWritten,Nil);
ReadFile(hport,ReadByte,SizeOf(ReadByte),ByteReaded,Nil);
sleep(50);
Result:=ReadByte;
end;

Procedure TReadThread.Execute;
var
respone:string;
num,n,m:byte;

begin
For num:=1 To 2 Do
 begin
  respone:=ReadValue(num);
  sleep(10);
  If num=1 Then
   begin
    delete(Respone,1,1);
    n:=1;
    m:=1;
    While n<>57 Do
     begin
     Value[m]:=StrToFloat(copy(Respone,n,6));
     inc(n,7);
     inc(m,1);
     end;
   end;
   If num=2 Then
    begin
    delete(Respone,1,1);
    Value[9]:=StrToFloat(copy(Respone,1,6));
    end;
 end;


end;
   {+02.409+03.221+03.102+02.988+02.879+02.774+02.673+02.576}

{>+19.531}

Procedure WriteValue;
var
n:byte;
begin
st_file:='';
st_file:=st_file+TimeToStr(now)+';';
For  n:=1 To 9 Do
 begin
  st_file:=st_file+FloatToStr(value[n])+';';
  end;
st_file:=st_file+#13+#10;
RegFile.Write(Pchar(st_file)^, Length(st_file));
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
InitADAM;
NamePatch:=ExtractFilePath(Application.ExeName);
Create_RegFile;
Timer1.Enabled:=True;
Tm_registr.Interval:=Period_Reg;
 //часы
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StartRead;
inc(tick,1);
StatusBar1.Panels[1].Text:=IntToStr(tick);
end;


procedure TForm1.Tm_registrTimer(Sender: TObject);
begin
WriteValue;
inc(tck_reg,1);
Label2.Caption:='Регистрация:'+IntToStr(tck_reg);
end;


procedure TForm1.FormClose(Sender: TObject;var Action: TCloseAction);
begin
 Timer1.Enabled:=False;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

case ComboBox1.ItemIndex of
0: Period_Reg:=100;
1: Period_Reg:=1000;
2: Period_Reg:=10000;
end;
Tm_registr.Interval:=Period_Reg;
end;


procedure TForm1.Timer3Timer(Sender: TObject);
begin
time.Caption:=TimeToStr(Now);
end;

procedure TForm1.Sb_Start_RegistrClick(Sender: TObject);
begin
if Sb_Start_Registr.Down Then Tm_registr.Enabled:=True Else Tm_registr.Enabled:=False;
if Tm_registr.Enabled=true then
Sh_ind_reg.Brush.Color:=clred else Sh_ind_reg.Brush.Color:=clGray;
end;

procedure TForm1.Sb_tableClick(Sender: TObject);
begin
  if not fm_Exist('Form2') then
  begin
  Form2:=TForm2.Create(self);
  if not Form2.Visible then
  Form2.Show;
  StartVisio;
  end;
end;

procedure TForm1.Sb_trandeClick(Sender: TObject);
begin
  if not fm_Exist('Form3') then
  begin
  Form3:=TForm3.Create(self);
  if not Form3.Visible then
  Form3.Show;
  end;
end;

From Stilet: Начнем с того что оформлять код нужно правильно, тегом #