Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Inidateiname aus Stringlistpfad holen (https://www.delphipraxis.net/173290-inidateiname-aus-stringlistpfad-holen.html)

Back2Code 15. Feb 2013 12:15

Delphi-Version: XE2

Inidateiname aus Stringlistpfad holen
 
Hallo zusammen, ich habe folgendes Problem. Ich lese diverse Ini Dateien in eine Stringlist ein und habe dann die Pfadangabe zur jeweiligen Inidatei. Nun möchte ich gerne von jedem Indexeintrag aus der Stringlist nur den Ininamen herrausholen und dann einer Variable zuweisen. Das Ganze soll dann in einer Schleife wie unten zu sehen ist ablaufen, jedoch weiß ich nicht genau wie ich nur den jeweiligen Ininamen z.b (trollohlol.ini) extrahieren kann statt (C:\troll\trollohlol.ini) als String zu haben.:cry:

MfG

Delphi-Quellcode:
procedure TFrmHpt.OpenIniAndFillOutDB(inilist: TStringList);
var i, Value: Integer;
    Modul, Abschnitt, Name: String;
begin
  for i := 0 to inilist.Count-1 do
  begin
  // Hier der Code zum extrahiern des Ininamens und zuweisen an die Variable
  end;
end;

khh 15. Feb 2013 12:17

AW: Inidateiname aus Stringlistpfad holen
 
function ExtractFileName(const S: FullFileName): string;

Back2Code 15. Feb 2013 12:23

AW: Inidateiname aus Stringlistpfad holen
 
Zitat:

Zitat von khh (Beitrag 1203704)
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 :roll:

Gibts ne gute Übersicht für Anfänger mit nützlichen Funktionen wie diesen?


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:43 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz