Procedure oder Funktionsaufruf mit Wertveränderung

[Piro]

Moin,

ich möchte gerne einer Procedure einen Wert geben, welcher dann verarbeitet wird und danach wieder von der Procedure einer Varaiblen zugewiesen wird;

- die ganze Deklaration ist ok, benötige nur Hilfe bei der Werteübergabe

Delphi-Quellcode:

Procedure wortaendern (name: string);
begin
 name := name + '1234';
end;

Procedure Tform1.button1click(Sender: Objekt);
var
 neuer_name: string;
begin
 neuer_name := woraendern ('Sven');
end;

Irgendwie will das nicht. Was kann ich anders machen, damit es funktioniert.

Danke.

[Dax]

Du must den Parameter als var Name deklarieren, dann gehts.

[Motzi]

Delphi-Quellcode:

Procedure wortaendern ( {-->} var {<--} name: string);
begin
 name := name + '1234';
end;

Procedure Tform1.button1click(Sender: Objekt);
var
 neuer_name: string;
begin
 neuer_name := woraendern ('Sven');
end;

[mytar]

Du kannst mit Hilfe einer Funktion machen;

Delphi-Quellcode:

function wortaendern (name: string): string; 
begin 
Result := name + '1234'; 
end;

oder mit einer Prozedur mit Var-Parameter:

Delphi-Quellcode:

procedure  wortaendern (var name: string); 
begin 
name := name + '1234'; 
end;

!!Achtung: Nur bei einer Funktion bekommst du einen Rückgabewert!!

[Dax]

Sagt mal, wie oft wird denn hier NOCH die selbe Antwort hingeschrieben?

[mytar]

Aufruf für Funktion:

Delphi-Quellcode:

Procedure Tform1.button1click(Sender: Objekt); 
var 
neuer_name: string; 
begin 
neuer_name := woraendern ('Sven'); 
end;

Aufruf für Prozedur:

Delphi-Quellcode:

Procedure Tform1.button1click(Sender: Objekt); 
var 
neuer_name: string; 
begin 
neuer_name := 'Sven';
woraendern (neuer_name); 
end;

Beiden hat des selben Effekt!

[Piro]

Danke für die zahlreiche Hilfe.

Schönes Wochenende.

[mytar]

@daywalker299: Danke dir auch! 8)

[Thebe]

Delphi-Quellcode:

function wortaendern (name: string); 
begin 
Result := name + '1234'; 
end;

wird garantiert nicht funktionieren, weil nicht deklariert wurde welchen Rückgabewert die Funktion liefern soll...

Delphi-Quellcode:

function wortaendern (name: string){-->}: string{<--};
begin 
Result := name + '1234'; 
end;