function ExtractFileName(const S: FullFileName): string;
Delphi-Quellcode:
procedure TFrmHpt.OpenIniAndFillOutDB(inilist: TStringList);
var i, Value: Integer;
Modul, Abschnitt, Name, fullFileName: String;
begin
//ShowMessage((inilist.Strings[2]));
for i := 0 to inilist.Count-1 do
begin
fullFileName := inilist.Strings[i];
Modul := ExtractFileName(fullFileName);
ShowMessage(Modul);
end;
end;
Funktioniert einwandfrei. Ich danke dir. Kenne leider noch nicht so viele Funktionen die schon bei Delphi mitgeliefert sind, deswegen frag ich dann gerne hier bei den Experten nach
Gibts ne gute Übersicht für Anfänger mit nützlichen Funktionen wie diesen?