Entwickler-Ecke
Dateizugriff - Gruppen in einer Textdatei (ähnlich wie Ini)
Tobi - So 21.12.03 13:16
Titel: Gruppen in einer Textdatei (ähnlich wie Ini)
Die Datei woerter.wrd hat folgende Struktur:
[L1]
Wort1
Wort2
usw.
[L2]
Wort1
Wort2
usw.
[L3]
usw.
Nun soll es so sein, dass wenn der Anwender in einer Groupbox L1 auswählt automatisch der Inhalt von L1 (also alles was zw. L1 und L2 steht) in ein TStringList geladen wird.
Bisher hatte ich nur Fehlversuche, hat jemand ne Ahnung wie und ob es geht (es wird sicher gehen ;))?
matze - So 21.12.03 13:28
du müsstest nach einer zeile suchen, die mit [ anfängt. und dann weiter suchen bis zur nächsten [. die zeilen dazwischen sind doch dann die zeilen die du willst.
Tobi - So 21.12.03 13:39
ja, so meinte ich das :)
aber wie gehts?
Christian S. - So 21.12.03 13:42
So:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure loadInto(var ziel : TStringList; const dateiname : String; const trenner : String);
VAR temp : TStringList;
tempStr : String;
anfang, ende : Integer;
begin
temp := TStringList.Create;
temp.LoadFromFile(dateiname);
tempStr := temp.text;
anfang:=Pos(trenner, tempStr);
anfang := anfang + Length(trenner) +2; ende := anfang;
while (tempStr[ende] <> '[') and (ende < Length(tempStr)) do inc(ende);
temp.text := Copy(tempStr, anfang, ende - anfang);
ziel.AddStrings(temp);
temp.free;
end; |
Diese Prozedur lädt die gewünschten Zeilen in eine StringList.
MfG
Peter
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!