Probleme mit funktion

[onkel]

Abend zusammen,
Ich habe 2 Eingabefelder, wenn ich in das eine Feld C:\test\a\b\c\testfile.exe eingebe und dann auf den Button drücke, soll im 2ten Feld nur noch testfile.exe stehn...

Code:

function Wandlestring (sourcestr:string):string;
 var
   i: integer;
 begin
     i := 1;
      while (i <= Length(sourcestr)) do
      begin
        while sourcestr[i] = '\' do
        Delete(sourcestr,1,i);
        Inc(i);
      end;
      result:= sourcestr;
 end ;

procedure TForm1.Button1Click(Sender: TObject);

begin
ergebnis:=(Edit1.Text);
Wandlestring(ergebnis);
Edit2.Text:=ergebnis;
end;

Irgendwie klappt das aber mit der Funktion nicht, wenn ch den Codeabschnitt in der Funktion außerhalb benutze funzt das 1a ..kann mir einer nen Hinweis liefern warum das nicht funzt, thx im vorraus


---------------------------------------------
hab gerade meinen Dummheitsfehler entdeckt...
ergebnis:=Wandlestring(ergebnis); muß es natürlich heißen
---------------------------------------------

@Mod/Admin: bitte den Beitrag löschen, thx!!

[Christian Seehase]

Moin Onkel,

ich hab' da noch einen anderen Tip:

Schau Dir mal die Funktionen ExtractFileName und LastDelimiter an.

Erstere macht das, was Dein WandleString macht, letztere kann WandeleString vereinfachen.