For-Schleife als Template mit Prozedur als Parameter?

[uligerhardt]

Zitat:

Zitat von LTE5 (Beitrag 1390110)

X wird 3x aufgerufen.
Wenn ich jetzt etwas am Schleifenkopf ändere, muss ich es nur noch an einer Stelle tun und nicht mehr an 100.

=> Habe erfolgreich resigniert :thumb:
klappt nicht so wie ich will. Denn abbrechen kann man die Schleife dann scheinbar nicht mehr.

Geht's dir wirklich nur um die Anzahl??? Dann nimm bittebittebitte eine Konstante! :pale:

Delphi-Quellcode:

const
  cLoopCount = 4;

for i := 0 to cLoopCount - 1 do // oder for i := 1 to cLoopCount do
  ...

[LTE5]

Zitat:

Zitat von LTE5 (Beitrag 1390095)

Zitat:

Aber ob sich das Lohnt 3 Zeilen einer sehr verständlichen schleife durch sowas wie Methodenparameter und anonyme Methoden zu ersetzen lohnt?

Das war doch nur ein Beispiel ;)

Ich zitiere mich noch einmal :P

[uligerhardt]

Zitat:

Zitat von LTE5 (Beitrag 1390121)

Zitat:

Zitat von LTE5 (Beitrag 1390095)

Zitat:

Aber ob sich das Lohnt 3 Zeilen einer sehr verständlichen schleife durch sowas wie Methodenparameter und anonyme Methoden zu ersetzen lohnt?

Das war doch nur ein Beispiel ;)

Ich zitiere mich noch einmal :P

Was willst du denn variieren können? Wie man sieht, kann das die Lösungsmöglichkeiten stark beeinflussen.

[QuickAndDirty]

Ich glaube er wünscht sich so einen Stil wie Javascript.
Wo man massive Dinge wie höhere Funktionen und bindings als Funktionsparameter verwenden kann.

[LTE5]

Nee. Ich benutze an sehr vielen Stellen im Programm immer wieder denselben Schleifenkopf und vor diesem Schleifenkopf noch eine weitere if-Abfrage.

Etwa so

Delphi-Quellcode:

{ 1 } if Liste.Count > 0 then
  begin
{ 2 }   for i := 0 to Liste.Count - 1 do
   begin
    DieEigentlicheArbeit;
   end;
 end;

Durch das Auslagern des Schleifenkopfes und DieEigentlicheArbeit (das kann alles sein) als Prozedurparameter habe ich { 1 } und { 2 } jetzt nur noch an einer einzigen Stelle.

Delphi-Quellcode:

procedure TForm1.ForLoopList(Func: TFunc<Integer, Boolean>);
var
 i: Integer;
begin
 if Liste.Count = 0 then
  Exit;

 for i := 0 to Liste.Count - 1 do
  begin
   if Func(i) then
    Break;
  end;
end;

ForLoopList(
 function(i: Integer): Boolean
  begin
   Result := DieEigentlicheArbeit;
  end);

Was ich jedoch noch nicht so richtig verstehe, ist die Definition von TFunc. Warum <Integer, Boolean>?

[Bernhard Geyer]

Du weißt aber schon das der erste Teil mit "if Liste.Count > 0" unnötig ist wenn nur die for-Schleife folgt.:gruebel:

[LTE5]

Sähe das sonst aber nicht so aus?

Delphi-Quellcode:

FÜR i = 0 BIS -1 DANN

Weil Liste.Count -1 bedeutet ja 0-1 = -1?

Zitat:

if Liste.Count > 0

Warum denn > 0? Ich prüfe im neuen Code auf = 0.

[DeddyH]

Zitat:

Zitat von LTE5 (Beitrag 1390190)

Was ich jedoch noch nicht so richtig verstehe, ist die Definition von TFunc. Warum <Integer, Boolean>?

http://docwiki.embarcadero.com/Libra...SysUtils.TFunc

[edit] Wenn bei der For-Schleife der Anfangswert nicht mindestens genauso groß wie der Endwert ist, wird sie gar nicht erst durchlaufen. [/edit]

[Bernhard Geyer]

Zitat:

Zitat von LTE5 (Beitrag 1390192)

Sähe das sonst aber nicht so aus?

Delphi-Quellcode:

FÜR i = 0 BIS -1 DANN

Weil Liste.Count -1 bedeutet ja 0-1 = -1?

ja und? D.h. er geht nie in die Schleife.

Zitat:

Zitat von LTE5 (Beitrag 1390192)

Zitat:

if Liste.Count > 0

Warum denn > 0? Ich prüfe im neuen Code auf = 0.

Also ich sehe da eine Zeile:

Delphi-Quellcode:

{ 1 } if Liste.Count > 0 then

[Delphi.Narium]

Anderer Ansatz: 'nen Nachfahren von List (was auch immer das jetzt genau ist) bauen. Für 'ne TStringList sinngemäß sowas (mit Delphi 7 probiert und funktioniert):

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  tLoopFunc = Function(AString : String) : Boolean;

type
  tForLoopList = class(TStringList)
  private
    { Private-Deklarationen }
  public
    function DoLoop(AProc : tLoopFunc) : Boolean;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function DieEigentlicheArbeit(AString : String) : Boolean;
begin
  if aString = 'x' then begin
    // mach noch was ...
    Result := True;
  end else Result := False;
end;

function DieAndereArbeit(AString : String) : Boolean;
begin
  if aString = 'x' then begin
    // mach noch was ....
    ShowMessage('Eine Zeile mit x');
    Result := True;
  end else Result := False;
end;

function tForLoopList.DoLoop(AProc : TLoopFunc) : Boolean;
var
  i : Integer;
begin
  Result := False;
  if Not Assigned(AProc) then Exit;
  for i := 0 to Self.Count - 1 do begin
    Result := AProc(Self[i]);
    if Result then Break;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : tForLoopList;
begin
  sl := tForLoopList.Create;
  // irgendwie jetzt für Inhalt in sl sorgen.
  // sl.LoadFromFile('x.txt');
  sl.Add('x');
  case sl.DoLoop(DieEigentlicheArbeit) of
    true  : sl.DoLoop(DieAndereArbeit);
    false : ShowMessage('war nix');
  end;
  // Ergbenis eventuell abspeichern?
  // sl.SaveToFile('x.txt');
  sl.Free;
end;

end.