Funktionen in Delphi

oh mann, ich sollte mich schämen...
hab 3 jahre damit programmiert und kann dir nicht mal weiterhelfen... mein hefter liegt leider 200km von hier entfernt, sonst könnte ich es dir genau sagen.

das du was durch zahlen ersetzen kannst, glaube ich schon, bin mir aber nicht mehr sicher... müsste aber glaube gehen

nagut dann brauche ich jetzt nur noch nen profi der mir verrät wie ich das anstelle ^^
aber danke schon...dann weiß ich wenigstens das es geht...irgendwie...

ich glaube es zumindest *g* ist ja auch schon nen paar jährchen her das ich damit gearbeitet habe...

kA, ob dir dieser code hilft, versuchs einfach, is aber schon moeglich, da bin ich mir sicher.

unit Unit1;

interface

uses
  // The System unit does not need to be defined
  Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm} // Include form definitions

Function GetSum(a, b : Integer) : Integer;
begin
  // Add the two numbers together, and return this value
  Result := a + b;
end;

// The main form On Create routine - our main program
procedure TForm1.FormCreate(Sender: TObject);
var
  total : Integer;
begin
  // Show the sum of a few number pairs
  total := GetSum(1,2);
  ShowMessageFmt(`%d + %d = %d`,[1,2,total]);

  total := GetSum(62,444);
  ShowMessageFmt(`%d + %d = %d`,[62,444,total]);
end;

end.

   1 + 2 = 3
   62 + 444 = 506
 
Example code : Illustrating a function and a function type
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.

unit Unit1;

interface

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

type
  // The form class itself
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// In line functions
Function MaxValue(a, b : Integer) : Integer;
begin
  // Return the highest of 2 numbers
  if a > b
  then Result := a
  else Result := b;
end;

Function MinValue(a, b : Integer) : Integer;
begin
  // Return the lowest of 2 numbers
  if a < b
  then Result := a
  else Result := b;
end;

// Main line code
procedure TForm1.FormCreate(Sender: TObject);
type
  TNumberFunc = Function(a, b : Integer) : Integer;

var
  numberFunc : TNumberFunc;
  a, b, c : Integer;

begin
  // Use the MaxValue function directly
  a := 3;
  b := 6;
  c := MaxValue(a, b);
  ShowMessage(`Direct call to MaxValue :`);
  ShowMessageFmt(`Max of %d and %d is %d`,[a,b,c]);

  // Now call it indirectly
  numberFunc := MaxValue;
  c := numberFunc(a, b);
  ShowMessage(`Indirect call to MaxValue :`);
  ShowMessageFmt(`Max of %d and %d is %d`,[a,b,c]);

  // And call it again for the MinValue function
  numberFunc := MinValue;
  c := numberFunc(a, b);
  ShowMessage(`Indirect call to MinValue :`);
  ShowMessageFmt(`Min of %d and %d is %d`,[a,b,c]);
end;

end.

   Direct call to MaxValue :
   Max of 3 and 6 is 6
   Indirect call to MaxValue :
   Max of 3 and 6 is 6
   Indirect call to MinValue :
   Min of 3 and 6 is 3
 
Example code : Using a type of a function of a class
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.

unit Unit1;

interface

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

type
  // Define a simple class
  TSimple = class
  private
    name : string;
  public
    function GetName : string;
    constructor Create(name : string);
  end;

  // The form class itself
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Create a simple object
constructor TSimple.Create(name: string);
begin
  // Save the passed string
  self.name := name;
end;

// Returns the simple name
function TSimple.GetName: string;
begin
  Result := name;
end;

// Main line code
procedure TForm1.FormCreate(Sender: TObject);
type
  TNameFunc = Function : string of object;

var
  simple   : TSimple;
  nameFunc : TNameFunc;

begin
  // Create a simple object
  simple := TSimple.Create(`Brian`);

  // Show the object name
  ShowMessage(`Name accessed directly = `+simple.GetName);

  // Now refer to this method indirectly
  nameFunc := simple.GetName;

  // Show the object name
  ShowMessage(`Name accessed indirectly = `+nameFunc);
end;
end.

kannst ja ma hier schaun: http://www.delphi-forum.de/

vielleicht fragste auch mal nen typen aus dem delphi service, die wissen das am besten

hm, also kann delphi zugegebenermaßen net besonders gut^^ dem quelltext versteh ich irgendwie net...also nur etwa die erste hälfte...danach hörts dann bei mir auf ^^
danke für die links...werd da dann auch mal nachfragen!

Eine Fixpunktiteration. Also man gibt eine Fixpunktgleichung ein, einen Startwert und dann sollte sich das durch rekursion an den fixpunkt annähern.
so z.b. (aber ich programmiere das ohne grafik..das kann ich erst recht nicht ^^)

shit bisschen groß...kann ich das irgendwie editieren? geht net, oda? sorry fürs bild ^^

schau mal direkt hier nach

http://www.delphi-forum.de/topic_Kann+man+lineare+Gleichungssytem+mit+SVD_38806.html&sid=8e55f7c59eba0ef790f99200f1940f2d

http://www.technik-channel.de/artikel/702970

vielleicht hilft dir das auch ein wenig weiter