Deutsches Lazarusforum

Danke.

Zeichen ersetzen funktioniert nun so...

sl.Text := StringReplace(sl.Text,']','',[rfReplaceAll]);

Wo setzte ich bei deinem Codebeispiel den Suchtext ein (wonach im tstring gesucht werden soll)

Oha das klingt schon komplizierter...

Mein bisheriger Code..

sl: TStringList;
SearchText: string;
i: integer;
begin


sl := TStringList.Create;
sl.LoadFromFile('test.ini');



SearchText := Edit1.Text;
ListBox1.Items.Clear;
for i := 0 to sl.Count - 1 do
if (Pos(SearchText , sl[i]) > 0 ...

Danke für die Tipps---

Hat funktioniert.

Gibt es noch die Möglichkeit anstatt den Sectionname - einzelne Werte anzuzeigen.

[Variante 1]
Zahl1=Test
Zahl2=Test1

[Variante 2]
Zahl1=Test3
Zahl2=Test4





Ausgabe in Listbox

Test Test1
Test2 Test3

HAllo Community,

lese eine ini per ini.ReadSections(ListBox1.Items); in Listbox.

Aufbau ini

[Variante 1]
Zahl1=test

[Variante 2]
Zahl1=test2

[Station 1]
Zahl1=test3

Ich hääte gern die Möglichkeit per edit Feld einen Suchbegriff eizugeben um dann die Listbox zu filtern.

Angenommen ich kenne ...