Brauche Hilfe bei Rekursion

[omata]

Zitat von Lyan:

Bitte auch Quellen angeben - danke!

Ich hatte den Quellcode aus einer meiner Anwendungen herauskopiert, ich wusste nicht mehr, wo ich den her hatte. Ich hasste Ausrufezeichen. Es kommt nicht nochmal vor, dass ich dir helfe.

[Furtbichler]

Mit Verlaub: Der Code ist so banal, das man auch ohne Quellenangabe hinkommen dürfte.

[p80286]

Zitat von omata:

Zitat von Lyan:

Bitte auch Quellen angeben - danke!

Ich hatte den Quellcode aus einer meiner Anwendungen herauskopiert, ich wusste nicht mehr, wo ich den her hatte.

Der Code ist so alt, daß die ursprüngliche Quelle in der grauen Vorzeit verschwunden ist. Ich kenn ihn aus einem TP-Lehrbuch. Allerdings ohne try finally.

Gibt's da vielleicht einenCopyrightjunkie ?

Gruß
K-H

[DeddyH]

[OT]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hallo Welt');
end;

Leider weiß ich die Quelle nicht mehr . [/OT]

Man kann es aber auch wirklich übertreiben.

[Bummi]

@DeddyH http://en.wikipedia.org/wiki/Hello_world_program

[Furtbichler]

Zitat von DeddyH:

Leider weiß ich die Quelle nicht mehr

Ach nein?

So kann man sich auch mit fremden Federn schmücken.

Ich möchte hiermit den Code "If" zum Patent anmelden!

[Luckie]

Könntet ihr bitte wieder zum Thema zurückkehren? Hier haben zwei Beteiligte etwas überreagiert. Aber daraus muss ja nun kein Drama machen.

[chaosben]

Ist doch ganz einfach:

Delphi-Quellcode:

procedure ProcessPath(APath: String);
var
  sr : TSearchRec;
begin
  APath := IncludeTrailingPathDelimiter(APath);

  if FindFirst(APath + '*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if (sr.Name = '.') or (sr.Name = '..') then
        continue;

      if sr.Attr and faDirectory = faDirectory then
        ProcessPath(APath + sr.Name)
      else
      begin
        // Datei weiterverarbeiten
      end;

    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Aber tu mir einen Gefallen: versuch den Code zu verstehen anstatt ihn einfach nur zu nutzen.