![]() |
Listbox ohne Wertbezeichnung aus INI füllen?
Eine Sektion einer INI-Datei in Listboxen abzulegen, ist nun wahrlich kein Meisterwerk.
Delphi-Quellcode:
Als Ergebnis würde es beispielsweise wie folgt aussehen:
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
'Conf\Data\Core.ini'); ini.ReadSectionValues('Name',ListBox1.Items); Ini.Free; 01=Versuch 02=Test usw. Wie könnte man aber den jeweiligen Wertebezeichner wegschneiden, so das eine Listbox nur mit den jeweiligen Wert befüllt wird? |
Re: Listbox ohne Wertbezeichnung aus INI füllen?
Gehe einfach von links nach rechts durch die Einträge und schneide alles was links Vom Gleich ist weg und das Gleich
|
Re: Listbox ohne Wertbezeichnung aus INI füllen?
Also eine Stringlist. Wie könnte das in etwa aussehen?
|
Re: Listbox ohne Wertbezeichnung aus INI füllen?
pseudocode
Delphi-Quellcode:
var StelleDesGleich
begin for AlleZeilen do begin StelleDesGleich := 0; for i := LängeDerZeile downto 1 do if Buchstabe = '=' then StelleDesGleich := i; if StelleDesGleich > 0 then Delete(AktuelleZeile,1,StelleDesGleich) end; end; |
Re: Listbox ohne Wertbezeichnung aus INI füllen?
Hallo ihr beiden,
das Wegschneiden geht auch mit Bordmitteln der StringList:
Delphi-Quellcode:
Freundliche Grüße
procedure DropNames(s: TStrings);
var i: Integer; begin if Assigned(s) then begin s.BeginUpdate; for i := 0 to Pred(s.Count) do s[i] := s.ValueFromIndex[i]; s.EndUpdate; end; end; |
Re: Listbox ohne Wertbezeichnung aus INI füllen?
Na gut das ist natürlich ein Bisschen eleganter... :-D
|
Re: Listbox ohne Wertbezeichnung aus INI füllen?
Mal so' ne ganz dämliche Frage. Ist "s" vom Typ Stringlist?
Edit: Selbst beantwortet, TStrings. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz