Threads und records / record-var "nicht mehr da/gültig"

**Meta777**

Hallo nochmals...

Ich hab nun die TLog von TThread abgeleitet aber dennoch das selbe Problem, nur an andere Stelle. Jetzt hab ich die AV bei "TLogAdd".

Hier die TLogAdd Procedure. Die alte Version (auskommentiere) hab ich mal stehen lassen...

zusammenfalten · markieren

Delphi-Quellcode:

			//class procedure TLog.Add(const APrtData: TDaPrtData);

procedure TLogAdd(const APrtData: TDaPrtData); overload;

var

  lt: TLog;

begin

  lt := TLog.Create(APrtData);  <== HIER KOMMT DIE AV!!

//  with TLog.Create(APrtData) do try

//    Synchronize;

//  finally

//    Free;

//  end;

end;

Die modifizierte TLog Klasse, aber der Fehler ist ja momentan n

zusammenfalten · markieren

Delphi-Quellcode:

			  TLog = class(TThread)//TIdSync

  protected

    FPrtData: TDaPrtData;

    procedure DoSynchronize;// override;

    procedure Execute; override;

    constructor Create(const APrtData: TDaPrtData);

  public

//    class procedure Add(const APrtData: TDaPrtData); overload;

//    class procedure Add(const AStr: String); overload;

  end;

constructor TLog.Create(const APrtData: TDaPrtData);

begin

  inherited Create(True);

  FPrtData := APrtData;

  FreeOnTerminate := True;

  Resume;

end;

procedure TLog.Execute;

begin

  Synchronize(Self.DoSynchronize);

end;

Threads und records / record-var "nicht mehr da/gültig"

Re: Threads und records / record-var "nicht mehr da/gül

Forumregeln