![]() |
Mein Problem: TStringlist
Hallo,
Mein Ziel ist es ein Vokabeltrainer zu Programmieren. Mein Problem liegt an folgender Stelle: Der Überprüfung der Eingabe. Die Vokabeln sind in einer txt Datei so gespeichert: . . . spiritus //latein^^ Geist, Hauch, Seele //irgendwie so^^ . . . und ich will das er die Eingabe: "Geist, Hauch, Seele" annimmt, aber genauso: "Hauch, Geist, Seele" und natürlich "Seele, Geist, Hauch" usw. Die drei Übersetzungsmöglichkeiten habe ich in eine TStringlist geladen, um sie dort nach einem Komma zu durchsuchen. Wenn gefunden, dann soll einem String die Zeichen bis zum Komma zugewiesen werden. Aus der Stringlist soll dann alles bis zum Komma gelöscht werden (ebenso das leerzeichen danach). Das ganze fängt dann wieder von vorn an. Komma?...ja/nein .... zuweisen...löschen...von vorne usw. Nur da harperts bei mir. Mit IndexOf kann ich nach Zeilen in einer Stringlist suchen, aber wie mache ich es wenn ich in einer Zeile ein Zeichen suchen will? Und wie kann ich den Text dann löschen? Hoffe mir kann jemand helfen, MfG Spiderpig |
Re: Mein Problem: TStringlist
Schau dir mal in der Hilfe zu der TStringList "Values" an.
|
Re: Mein Problem: TStringlist
So mal auf die Schnelle, könnte man folgende Funktion verwenden um dein Problem zu lösen:
Delphi-Quellcode:
Grüßefunction decodeString(sString, sSeperator : string) : TStringList; var iI, iMax : integer; sStringAdd : string; begin result := TStringList.Create; result.Clear; iMax := length(sString); sStringAdd := ''; for iI := 1 to iMax do begin if sString[iI] <> sSeperator then sStringAdd := sStringAdd + sString[iI] else begin result.Add(sStringAdd); sStringAdd := ''; end; end; if sStringAdd <> '' then result.Add(sStringAdd); end; Michael |
Re: Mein Problem: TStringlist
danke, funktioniert super,
hab nur noch ergänzen müssen das er das Leerzeichen hinter dem Komma löscht, man gib ja gewöhnlich Text in dieser Form ein "Hallo,[LEERZEICHEN]das ist ein Test" und nicht so: "Hallo,das ist ein Test" :dp: |
Re: Mein Problem: TStringlist
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:47 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 by Thomas Breitkreuz