AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Eine Art umgekehrte Prozedur

Ein Thema von Popov · begonnen am 30. Mär 2015 · letzter Beitrag vom 31. Mär 2015
 
Popov
(Gast)

n/a Beiträge
 
#1

Eine Art umgekehrte Prozedur

  Alt 30. Mär 2015, 19:07
Delphi-Quellcode:
function Test1(x: Integer): Integer;
begin
  Result := 10; //Stellvertretend für viel Code

  Result := Result * x; //<<<<<< Nur diese Zeile ist anderes <<<<<<

  Result := Result * 10; //Stellvertretend für viel Code
end;

function Test2(y: Integer; s: String): Integer;
begin
  Result := 10; //Stellvertretend für viel Code

  Result := Result * x + StrToInt(s); //<<<<<< Nur diese Zeile ist anderes <<<<<<

  Result := Result * 10; //Stellvertretend für viel Code
end;
In der Regel ist es so: man hat einen Code der sich wiederholt und der immer wieder genutzt wird, also lagert man das in eine Prozedur oder Funktion aus und greift dann auf die zurück.

Nun habe ich aber ein anderes Problem. Ich habe x Prozeduren die fast identisch sind, nur in der Mitte unterscheiden sich (sagen wir mal) zwei Code-Zeilen.

Hier ist das Problem verdreht. In der Regel ist der innere Teil gleich, also lagert man es aus. Hier ist es umgekehrt. Hier ist der äußere Teil gleich, nur der Innere anders.

If-Abfragen oder Case bringen hier nichts, denn die Parameter sind immer unterschiedlich. Nun könnte man den Vorderen Teil in eine Prozedur auslagern, den hinteren Teil in eine andere. Das würde gehen, aber irgendwie gehören beide Teile zusammen. Vor allem werden lokale Variablen und Objekte genutzt, was es etwas kompliziert macht es aufzuteilen.

Gibt es also die Möglichkeit den äußeren Teil auszulagern und dann den inneren darin auszuführen?
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz