Rückgabewert der Funktion undefiniert

[trebor90]

Zitat von himitsu:

Da ich nicht weiß worum es geht, da auch die Überschrift nicht zur geposteten Prozedur paßt ...

Dann müsstest du einfach mal den gesamten Gesprächsfaden von vorn beginnend lesen, denn da (auf Seite 1) ging es anfangs um einen undefinierten Rückgabewert ...
___________________________________________

Für nat (und alle anderen natürlich auch):

Delphi-Quellcode:

procedure TForm1.dateinamenkurz();
var a,i,j,l:integer;
    Pfad,s:string;
begin
a:=listbox1.items.count;
s:=listbox1.items[a-1];
l:=length(s);
//Pfadlänge ermitteln mittels letztem Backslash
for j:=l downto 1 do
      begin
        if s[j]='\' then
          begin
            Pfad:=copy(s,1,j);
            Break;
          end;
      end;

//Pfad aus jeder Datei löschen, sodass nur noch Dateiname übrig bleibt
for i:=1 to a do
  begin
    s:=listbox1.items[i-1];
    if (pos(Pfad,s)<>0) then delete(s,1,j);
    listbox1.items[i-1]:=s;
  end;
if (Pfad<>'') then edit1.text:=Pfad;
end;