title image


Smiley Re: Hier der Quellcode in kurz...


Edit1: TEdit;

Edit4: TEdit;

....

procedure Button2Click(Sender: TObject);

function Form1.SplitString(t_gesamt: string): TEvent;





>>>>>>>>> schreibe nur

function SplitString(t_gesamt: string): TEvent;



private

{ Private-Deklarationen }









und nach der impelmentation:



function Form1.SplitString(t_gesamt: string): TEvent;





(oder schreibe keine deklaration und plaziere die function vor dem eigentlichen aufruf.)





beispiel:





public

{ Public-Deklarationen }

function hallo:integer; //oder natuerlich auch vor privat

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



function TForm1.hallo:integer;

begin

result:=1;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(inttostr(hallo));

end;











//
// C wurde erfunden, damit die baeume der programmierer
// nicht in den himmel wachsen.
//
// frager


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: