OpenDialog - Relikt in *.pgn-Tool

[Uwe Raabe]

Zitat von mm1256:

Application.ProcessMessages ??

Er hat Jehova gesagt

[mm1256]

"Jehova" versteh ich jetzt nicht. Liegt's daran, dass ich erst aufgestanden bin?

[himitsu]

Zitat von mm1256:

"Jehova"

Zwischen dem Öffnendialog und dem Laden der Datei dem Programm/Windows die Chance geben sich neu zu zeichnen.

Oder die andere genannte Alternative, also das Laden in den Hintergrund legen und die VCL sofort wieder um sich selber kümmern zu lassen.

[Uwe Raabe]

Zitat von mm1256:

"Jehova" versteh ich jetzt nicht. Liegt's daran, dass ich erst aufgestanden bin?

Vielleicht bin ich auch einfach nur zu alt: Er hat Jehova gesagt!

[wendelin]

Hallo, vielen Dank für Eure Antworten.

Allerdings habe ich noch nie mit Thread's gearbeitet.
Vielleicht kann mir jemand mit Hilfe von Delphi-Code (Pseudo-Code) an Hand eines Beispiels
die Vorgehensweise erklären.

Danke Wendelin

mein Code

Delphi-Quellcode:

procedure TMyPGN.SpeedButton7Click(Sender: TObject);
VAR
  MyFileName,PathName,LeerZ   : String;
  Zahl_ENDE                   : Integer;
begin
  LeerZ := '';
(* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *)
  OpenDialog2.FileName   := g_ArbeitsVerz ;
(* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *)
  OpenDialog2.InitialDir := g_ArbeitsVerz ;
  PathName               := g_ArbeitsVerz ;
  MyFileName             := 'Ihre Eingabe';
  OpenDialog1.FileName   := PathName + MyFileName;
  if OpenDialog1.Execute then
  begin
    Memo1.Clear;
    MyStringListA.LoadFromFile(OpenDialog1.FileName);
  end;
  Memo1.Lines.Text := MyStringListA.Text;
  If Trim(MyStringListA.Strings[0]) <> '' then  // ev. Leerzeile  am Anfang !!
  begin                                         // einfügen
    Memo1.Clear;
    MyStringListA.Insert(0,LeerZ);
    Memo1.Lines.Text := MyStringListA.Text;
  end;
  Zahl_ENDE := MyStringListA.Count;
  If Trim(MyStringListA.Strings[Zahl_ENDE - 1]) <> '' then
  begin                                         // ev. Leerzeile  am ENDE !!
    Memo1.Clear;                                // einfügen
    MyStringListA.Insert(Zahl_ENDE,LeerZ);
    Memo1.Lines.Text := MyStringListA.Text;
  end;
  Panel5.Caption := 'Zeilen :' + IntToStr(Memo1.Lines.Count);  // Zahl der Zeilen anzeigen
  AusgabeAnzahlPartienAlt;
  Gewinn_Verlust_Remis_NEU;

[dGeek]

Hier sind vier Möglichkeiten erklärt, einen Thread zu erzeugen.
Ich bevorzuge ganz klar die "The Delphi Way" Methode.

http://www.thedelphigeek.com/2012/02...un-5-four.html

[mm1256]

Zitat von Uwe Raabe:

Zitat von mm1256:

"Jehova" versteh ich jetzt nicht. Liegt's daran, dass ich erst aufgestanden bin?

Vielleicht bin ich auch einfach nur zu alt: Er hat Jehova gesagt!

Danke Uwe, du bist so gut zu mir (kein Sarkasmus, ich mein das ernst!)

Wenn ich mir den obigen Code so anschaue, würde da nicht vielleicht ein BeginUpdate und ein EndUpdate schon viel bringen? Und dazu natürlich noch das, was man(n) nicht ausspricht

[himitsu]

Zitat von mm1256:

Wenn ich mir den obigen Code so anschaue, würde da nicht vielleicht ein BeginUpdate und ein EndUpdate schon viel bringen?

Nein, nicht wirklich, außer MyStringListA ist keine TStringList.

Es würde viel mehr bringen, wenn man nicht sinnlos dem arschlangsamen Memo mehrmals den kompletten Inhalt neu zuweist.

Delphi-Quellcode:

procedure TMyPGN.SpeedButton7Click(Sender: TObject);
VAR
  MyFileName : String;
begin
  OpenDialog2.FileName := g_ArbeitsVerz;
  OpenDialog2.InitialDir := g_ArbeitsVerz;
  MyFileName := 'Ihre Eingabe';
  OpenDialog1.FileName := g_ArbeitsVerz + MyFileName;
  if not OpenDialog1.Execute then
    Exit;  // Wenn man auf Abbrechen drückte, dann wurde dennoch alles in MyStringListA dennoch verarbeitet?
  MyStringListA.LoadFromFile(OpenDialog1.FileName);
  If Trim(MyStringListA.Strings[0]) <> '' then  // auf erste/letzte Zeile zugreifen ... und was wenn es keine Zeilen gibt?
    MyStringListA.Insert(0, '');  // wenn am Anfang eine Leerzeine, dann NOCHMAL Eine dahin?
  If Trim(MyStringListA.Strings[MyStringListA.Count - 1]) <> '' then
    MyStringListA.Add('');  // hier auch?
  Memo1.Lines.Text := MyStringListA.Text;  // einmal zuweisen reicht und vorher zu löschen war eh nutzlos
  Panel5.Caption := 'Zeilen :' + IntToStr(MyStringListA.Count); // Zahl der Zeilen anzeigen
  AusgabeAnzahlPartienAlt;
  Gewinn_Verlust_Remis_NEU;

Ach ja, Threads bringen hier absolut garnichts, da die meiste Zeit, praktisch fast die Ganze, mit Zugriffen auf die VCL verbraten werden.

[wendelin]

Hallo, mal ein paar allgemeine Bemerkungen.

1. Sicher hast Du recht, den Code kann man kürzen.
2. Ich bin reiner Hobby-Prog.
3. Aus vielen Antworten von versch. IT-Crack's ?? in dieser Comm. kann man immer wieder eine gewisse Arroganz herauslesen.
(zu manchen Fragen erfolgt KEINE substantielle Antwort aber ziemlich viel Nonsens)
4. Vor meiner Pensionierung war ich niedergelassener Arzt.
Was glaubst Du, was die Pat. gesagt hätten, wenn ich auf med. Fragen meiner Pat. geantwortet hätte : Schauen Sie doch mal in die 'Rentner-Bravo'
(Apotheken-Rundschau) oder ins Internet.


Dr.M.U. alias Wendelin

[mm1256]

Hallo Doc,

Zustimmung in allen Punkten. In dieser Hinsicht haben wir Gemeinsamkeiten. Als IT-Autodidakt, der wie einige Andere hier kein IT-Studium hinter sich hat, wird man manchmal etwas "von oben herab" behandelt, vielleicht sogar als "geistig weniger bemittelt" betrachtet, wenn man Code schreibt oder Ansichten vertritt, die nicht Stand der Technik, oder im Sinne der hier anwesenden Spezialisten sind.

Ich kann mich nur schwer an diese Umgangsformenk gewöhnen, aber, was solls. Es sind überwiegend die "jungen Wilden" die auch untereinander nicht mehr mit der Geduld und der Höflichkeit umgehen, die wir (...alten Säcke...<g>...) als Standard betrachten. Um es mal in Doc-Sprache zu sagen: Das Rezept ist einfach anzunehmen, alternative Therapievorschläge sind kontraindiziert.

Um aber nochmals zum Thema zurück zu kommen. Hast du denn "das Verbotene" schon ausprobiert?