Sinnvoller Einsatz von goto

[samso]

N.B. Und vielleicht auch noch die 64-Bit-Version vorbereiten:

Delphi-Quellcode:

{$IF (CompilerVersion<20.00)}
Type
  NativeInt = type Integer;     //Delphi2007: SizeOf(NativeInt)<>4(!)
{$IFEND}
...
SendMessage(ParentHandle, CM_STATUS, NativeInt(PChar('Durchlauf:')), i);
...

Mist - zereditiert

[jfheins]

Zitat:

Zitat von samso

N.B. Und vielleicht auch noch die 64-Bit-Version vorbereiten:

:?: :?: :?:
Integer bleibt 32 bittig, wenn ich richtig informiert bin ....

[alzaimar]

Das hat dann aber nicht mehr soooo viel mit GOTO zu tun, dem Thema des Threads.

[samso]

Zitat:

Integer bleibt 32 bittig, wenn ich richtig informiert bin ....

Darum ja, denn PChar wird 64-Bit.

[alzaimar]

Zitat:

Zitat von samso

Zitat:

Integer bleibt 32 bittig, wenn ich richtig informiert bin ....

Darum ja, denn PChar wird 64-Bit.

Zitat:

Zitat von alzaimar

Das hat dann aber nicht mehr soooo viel mit GOTO zu tun, dem Thema des Threads.

*Tap* *Tap* *Tap*

[himitsu]

Delphi-Quellcode:

function DemoThread(p: Pointer): Integer;
var
  i: Integer;
  ParentHandle: THandle;
begin
  ParentHandle := PThreadParams(p)^.ParentHandle;
  for i := 0 to 9 do
  begin
    if Abort then
    begin
      SendMessage(ParentHandle, CM_ABORT, 0 , 0);
      Break;
    end;
    SendMessage(ParentHandle, CM_STATUS, Integer(PChar('Durchlauf:')), i);
    Sleep(500);
    if i = 9 then SendMessage(ParentHandle, CM_FINISHED, 0, 0);
  end;
  Dispose(p);
  Result := 0;
end;

Delphi-Quellcode:

function DemoThread(p: Pointer): Integer;
var
  i: Integer;
  ParentHandle: THandle;
begin
  ParentHandle := PThreadParams(p)^.ParentHandle;
  i := 0
  while (i <= 9) and not Abort do
  begin
    SendMessage(ParentHandle, CM_STATUS, LPARAM(PChar('Durchlauf:')), i);
    Sleep(500);
    Inc(i);
  end;
  if i > 9 then
    SendMessage(ParentHandle, CM_FINISHED, 0, 0)
  else SendMessage(ParentHandle, CM_ABORT, 0 , 0);
  Dispose(p);
  Result := 0;
end;

Wobei bei Sowas das Try-Finally, bezüglich des der Speicherfeigabe, sowieso in irgendeiner Weise zu bevorzugen ist.

Delphi-Quellcode:

function DemoThread(p: Pointer): Integer;
var
  i: Integer;
  ParentHandle: THandle;
begin
  try
    ParentHandle := PThreadParams(p)^.ParentHandle;
    i := 0
    while (i <= 9) and not Abort do
    begin
      SendMessage(ParentHandle, CM_STATUS, LPARAM(PChar('Durchlauf:')), i);
      Sleep(500);
      Inc(i);
    end;
    if i > 9 then
      SendMessage(ParentHandle, CM_FINISHED, 0, 0)
    else SendMessage(ParentHandle, CM_ABORT, 0 , 0);
  finally
    Dispose(p);
  end;
  Result := 0;
end;

Abgesehn davon ist der Quatsch mit dem 32-Bit-Integer in 64 Bt hier egal, denn selbst wenn man hier den Pointer ordnungsgemäß in einen 64-Bit-Intreger (in einem 64-Bit-Compiler) umwandelt, dann muß man eh erstmal abgleichen ob dort SendMessage auch 64-Bit-Parameter hat ... also denke ich mal, daß man dort auch gleich den Typen des Parameters nutzen kann.

Und ja, ich finde auch, daß es an einigen Stellen einfach einfacher mit GOTO lösbar ist.
PS: ein Break, While, For, Case und vieles Anderes besteht intern quasi auch nur ein ein paar IFs+GOTO. :angel:

[omata]

Zitat:

Zitat von himitsu

Und ja, ich finde auch, daß es an einigen Stellen einfach einfacher mit GOTO lösbar ist.

nicht wirklich, aber wenn du meinst.

Zitat:

Zitat von himitsu

PS: ein Break, While, For, Case und vieles Anderes besteht intern quasi auch nur ein ein paar IFs+GOTO. :angel:

Ja ne, is klar. Wo war nochmal der Unterschied zwischen Hochsprache und Assembler? Ach ja, in einer Hochsprache kann man strukturiert programmieren. GOTO gehört nicht zu den strukturierten Befehlen (Disskussion wie immer, daran ändert sich auch niemals etwas). Nur weil ein Befehl aus historischen Gründen noch existiert, muss man nicht unbedingt auf krampf ein Beispiel konstruieren, damit man auch diesen endlich mal benutzen kann. Das ist einfach unglaublich wie dieses Thema immer wieder hochkocht. Einfach faszinierend und echt traurig.

[himitsu]

http://www.delphipraxis.net/internal...062424#1062424
Tut mir ja Leid, aber ohne Goto hätte ich dort so Einiges an doppeltem Code und/oder die eine oder andere Stelle hätte etwas umständlicher gelößt werden müssen.

Und nein, bis auf wenige Stellen nutze ich auch sehr selten ein Goto, also ich kann nicht behaupten, daß ich dieses auf Krampf versuche immer zu verwenden ... wie man oben sieht, geht es auch ja auch oftmals anders/ohne.

Aber bei Rücksprüngen oder beim Rumspringen in mehreren verschachtelten Schleifen ist es schon hier oder da auch mal recht gut zu gebrauchen.

Und wozu soll man etwas Vorhandenes und vorallem Funktionierendes nicht verwenden, wenn es damit "einfacher" geht?

Wenn man weiß, was man macht, dann erzeugt ein Goto auch keinen gefährlichen Code.

[omata]

Da reichen vier Buchstaben: Nein

[Meflin]

Zitat:

Zitat von omata

Da reichen vier Buchstaben: Nein

:thumb:

Ich bin auch äußerst verwundert über diesen Thread. Gerade von Luckie hätte ich das nicht erwartet :gruebel:

Sinnvoller Einsatz von goto ... ist nicht möglich.