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!!