For-Schleife als Template mit Prozedur als Parameter?

[uligerhardt]

Zitat von LTE5:

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
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!

Delphi-Quellcode:

const
  cLoopCount = 4;

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

[LTE5]

Zitat von LTE5:

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

[uligerhardt]

Zitat von LTE5:

Zitat von LTE5:

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

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.

[LTE5]

Sähe das sonst aber nicht so aus?
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 von LTE5:

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 von LTE5:

Sähe das sonst aber nicht so aus?
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 von LTE5:

Zitat:

if Liste.Count > 0

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

Also ich sehe da eine Zeile:

{ 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.