Работа с потоками.

[Aleksandr]

В потоке ругается на PosEx

[Kix.IV]

Я рад за тебя. А тему зачем создал?

[Aleksandr]

С этой ошибкой разобрался сейчас другая. При считывании данных с com порта в потоке выводит ошибку
Вот мой код. Бросил полностью Unit потока

unit MyThread;

interface

uses
  Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF},Messages,Dialogs,SysUtils,ShellAPI,
  Variants,  Graphics, Controls, StdCtrls,StrUtils,Math;

type
  TCountObj = class(TThread)
  private
    procedure SetName;
  protected
    procedure Execute; override;
  end;

implementation

uses Main, Option;

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TCountObj.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{$IFDEF MSWINDOWS}
type
  TThreadNameInfo = record
    FType: LongWord;     // must be 0x1000
    FName: PChar;        // pointer to name (in user address space)
    FThreadID: LongWord; // thread ID (-1 indicates caller thread)
    FFlags: LongWord;    // reserved for future use, must be zero
  end;
{$ENDIF}

{ TCountObj }

procedure TCountObj.SetName;
{$IFDEF MSWINDOWS}


var
  ThreadNameInfo: TThreadNameInfo;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
  ThreadNameInfo.FType := $1000;
  ThreadNameInfo.FName := 'co1';
  ThreadNameInfo.FThreadID := $FFFFFFFF;
  ThreadNameInfo.FFlags := 0;

  try
    RaiseException( $406D1388, 0, sizeof(ThreadNameInfo) div sizeof(LongWord), @ThreadNameInfo );
  except
  end;
{$ENDIF}
end;
//function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
function only_numbers(str:string):string;

var buf:string;
    i:integer;
begin
buf:='';
for i:=1 to length(str) do
  if str[i] in ['0'..'9', '.', ','] then buf:=buf+str[i];

Result:=buf;
end;

procedure TCountObj.Execute;
var
  S, S1: String;

  f:real;
  s3:real;
  a,b:integer;
  i1,i2: Integer;
    r: Real;
  Count: Integer;
begin
//  SetName;
  { Place thread code here }
//showmessage('Digite um HostName ou um End. IP');
 mainform.BComPort1.ReadStr(S, Count);
  if mainform.cbCRLF.Checked and (S[Length(S)] = #13) then // Äîáàâëåíèå ïåðåâîäà ñòðîêè
    S := S + #10;
    mainform.Memo1.Text := mainform.Memo1.Text + S;
  //if s<>'' then
//  begin

  s1:=only_numbers(s);
   s1:=StringReplace(s1, '.',',' , [rfReplaceAll]);
  // s1:=StringReplace(s1, ' ','' , [rfReplaceAll]);
    //   Memo1.Text := Memo1.Text + S;
 i1:=Pos(',',s1);
  if i1>0 then begin
    i2:=PosEx(',',s1,i1+1);
    if i2>0 then s1:=Copy(s1,1,i2-1)+Copy(s1,i2+1,Length(s1)-i2);
  end;
  r:=RoundTo(StrToFloatDef(s1,0),-2);  //ðåçóëüòàò
  mainform.Edit2.Text:=Floattostr(r);
   // edit2.Text:=s1;
//  if s1<>'' then
 // begin
{i1:=Pos(',',s1);
  if i1>0 then begin
    i2:=PosEx(',',s1,i1+1);
    if i2>0 then s1:=Copy(s1,1,i2-1)+Copy(s1,i2+1,Length(s1)-i2);
  end;
  r:=RoundTo(StrToFloatDef(s1,0),-2);  //ðåçóëüòàò
  Edit2.Text:=Floattostr(r); }

 // f:=strtofloat(s1) ;
//   f:=strtofloat(Edit2.Text) ;
//  if f<>0 then
 // begin
  mainform.edtNotes.Text:=mainform.edtNotes.Text+mainform.Edit2.Text +#9#9+TimeToStr(now) +#13+#10;
  if strtofloat(mainform.Edit2.Text)>0 then
begin
  mainform.ADOTable1.Insert;
//MainForm.ADOTable1.Edit;

MainForm.ADOTable1.FieldByName('Ìàññà').Value:=mainform.Edit2.Text;
MainForm.ADOTable1.FieldByName('Com').Value:=mainform.dbcombobox1.Text;
MainForm.ADOTable1.FieldByName('Organization').Value:=mainform.dbcombobox3.Text;
MainForm.ADOTable1.FieldByName('Äàòà_çàïèñè').AsString:=DateToStr(now);
MainForm.ADOTable1.FieldByName('Âðåìÿ_çàïèñè').AsString:=TimeToStr(now);

 MainForm.ADOTable1.Post;
//MainForm.ADOTable1.Refresh;

 // end;
  end;
 if Optionform.RzEdit1.Text<>'' then
 begin
 a:=mainform.memo1.Lines.Count;
  if a>Strtoint(Optionform.RzEdit1.Text) then
  mainform.memo1.Clear;
 end;

 if Optionform.RzEdit2.Text<>'' then
 begin
 b:=mainform.edtNotes.Lines.Count;
  if b>Strtoint(Optionform.RzEdit2.Text) then
 mainform.edtNotes.Clear;
 end;



  if terminated then

   exit;
end;

end.

[Аватар]

Текст после uses Main, Option; вам о чем-то говорит?
Весь код не смотрел, достаточно и mainform.Memo1.Text := mainform.Memo1.Text + S; в Execute

[Aleksandr]

Аватар, а можно поподробней?
mainform.Memo1.Text := mainform.Memo1.Text + S это я пишу текст в memo1 на форме mainform или я что-то делаю не так? Как тогда реализовать запись данных в компоненты на форме mainForm.

[Аватар]

Подробнее читайте о методе Synchronize

[Aleksandr]

Аватар спасибо. Сделал.

[Kix.IV]

Вечная проблема. Каждый почему-то считает, что он умный и эти коментарии, при создании нового потока и dll, не нужны.

[Человек_Борща]

Добавь StrUtils в секцию Uses и не будет на PosEx ругаться.

[Аватар]

Добавь StrUtils в секцию Uses и не будет на PosEx ругаться.

На это ругалось бы при компиляции, а StrUtils у ТС есть