TMemo (FireMonkey)

[value is NULL]

Ich habe ein Video beigefügt wie sich das ganze äußert.

hier mein code welchen ich für das Memo verwende:

Delphi-Quellcode:

  Form1.Memo1.Lines.BeginUpdate;
  try
    Form1.Memo1.Lines.Add(DateToStr(Now)+' '+TimeToStr(Now)+' '+msg);
  finally
    Form1.Memo1.Lines.EndUpdate;
  end;

[Der schöne Günther]

Kann ich spontan auf XE5 nicht nachstellen - Alle 200ms etwas in eine Memo werfen. Kannst du vom Code her nicht ein Minimalbeispiel einstellen?

[value is NULL]

Im Endeffekt rufe ich aus einem Thread verschiedene prozeduren auf:

Delphi-Quellcode:

...

function write(msg : string) : string;
begin
  Form1.Memo1.Lines.BeginUpdate;
  try
    Form1.Memo1.Lines.Add(DateToStr(Now)+' '+TimeToStr(Now)+' '+msg);
  finally
    Form1.Memo1.Lines.EndUpdate;
  end;
end;

....

function RightsThread() : string;
var
  groups, idprivs : TStringlist;
  i,i2   : Integer;
  idRole, right, prefix : String;
begin
  result := 'ok';
  write('[RIGHTS] Thread started');

  //SQL Connection
  write(' - Connecting to Database ...');
  if sqlst.connect_extdb('127.0.0.1', 'test', 'test', 'mainDB') <> 'OK' then begin
    write(' - ERROR: Cannot connect to Database');
    write(sqlst.assert);
    result := 'error';
    abort;
  end;
  write(' - SQL Connection established');

  //prefix
  if Form1.Switch1.IsChecked then
    prefix := 'v3_'
  else
    prefix := '';

  Write('- Reading Groups...');
  groups := TStringlist.Create;
  sqlst.DoQuery('select name from tbrole', groups);
  i := 0;
  if groups.Count < 1 then begin
    write(' - ERROR: No Group(s) found. [GroupThread] finished');
    result := 'error';
    abort;
  end;

  idprivs := TStringlist.Create;
  //Start it
  Writeln(x, '    <!-- Define Group and Access Rights -->');
  while i < groups.Count do begin
    write(' - Processing Group '+groups[i]);
    Writeln(x, '    <group name="'+prefix+groups[i]+'" enabled="true"/>');
    Writeln(x, '    <groupRegion group="'+prefix+groups[i]+'" region="Standard"/>');

    //Start Reading Access Rights
    idRole := sqlst.query('select idrole from tbrole where name = '''+groups[i]+'''');
    if idRole = '' then begin
      write(' - ERROR: IDRole not found for '+groups[i]);
      abort;
    end;
    //Read all rights
    sqlst.DoQuery('select idpriv from tbuserright where idrole = '+idrole+' and extra is NULL', idprivs);
    Write(' - '+inttostr(idprivs.Count)+' Userright(s) found for group '+groups[i]);
    i2 := 0;
    while i2 < idprivs.Count do begin
      right := sqlst.query('select name from tbpriv where idpriv = '+idprivs[i2]);
      right := convert_userright(right);
      if right = 'unknown' then goto next;
      Writeln(x, '    <accessRight group="'+prefix+groups[i]+'" accessRight="'+right+'"/>');
      Write('Added Right '+right);
      next:
      i2 := i2 + 1;
    end;

    i := i + 1;
    idprivs.Clear;
    Writeln(x, '');
  end;

  sqlst.close;
  groups.Free;
  idprivs.Free;
end;

Habe jetzt auch versucht weniger auszugeben sprich ich habe die Write's in der While loop entfernt...
Selber Effekt :/

[Der schöne Günther]

Ja, ein Wunder das das Ding sich nicht aufhängt sondern tapfer weiterläuft. Aus einem Thread heraus - wie immer - nicht direkt die Oberfläche (im Hauptthread) anfassen! Wenn ich das bei mir tue, flackert es auch wie wild.

Wenn du das Anfügen in der Memo wieder mit TThread.Queue(..) oder TThread.Synchronize(..) in den Hauptthread verlagerst flackert nichts und alles läuft schön flüssig durch.

[value is NULL]

Mann Mann Mann....
DANKE!

Vermutlich blöde Frage, habe mich mit Threads nie so auseinander gesetzt.
Ich benutze dies hier zum starten meines Threads

Delphi-Quellcode:

Function StartThread(pFunction : TFNThreadStartRoutine; iPriority : Integer = Thread_Priority_Normal; iStartFlag : Integer = 0) : THandle;
var
  ThreadID : DWORD;
begin
  Result := CreateThread(nil, 0, pFunction, nil, iStartFlag, ThreadID);
  if Result <> Null then
  SetThreadPriority(Result, iPriority);
end;

...

ithread := StartThread(@importThread);

und aus "importhread" rufe ich dann die Funktionen auf. Wie könnte sowas aussehen mit Synchronize?

Danke jetzt schon mal und liebe Grüße!

[value is NULL]

vergiss es... ich lese mich selbst da ein

Danke auf jeden Fall!

[Der schöne Günther]

In der VCL verhält es sich übrigens genauso. Ich glaube da wäre das Programm schon längst aufgehangen. Ein Wunder, das das überhaupt funktioniert hat

Hinweis: Ich hatte im Delphi-Land persönlich noch nie einen Grund, Threads hart über die Windows-API zu regeln. Es sei denn, man steht auf körperliche Schmerzen. Ich finde den Weg über die TThread -Klasse (in System.Classes) eigentlich sehr, sehr angenehm gemacht. Ein gutes Tutorial habe ich zwar nicht zur Hand, aber viel steckt da auch nicht hinter.