Spaltenweise auf TStringList zugreifen

[aaaaaaaaaa_10]

Hallo,

ich habe ein StringList, die wie eine Tabelle aufgebaut ist (oben der Header und dann die Werte pro Spalte).
Nun möchte ich pro Spalte eine Berechnung durchführen. Wie gehe ich da am besten spaltenweise vor? (Die einzelnen Werte in einer Zeile sind durch #9 getrennt.

[jaenicke]

Je nachdem wie oft du da etwas berechnen willst. Wenn es nur einmal oder so passiert, dann kannst du die einzelnen Spalten einer Zeile mit Hilfe einer weiteren TStringList auslesen und schreiben. Dafür gibt es Delimiter und DelimitedText zum Beispiel.

Wenn das immer wieder passieren soll, solltest du die Daten einmal auslesen in eine richtige Tabelle, z.B. ein zweidimensionales Array, dort damit arbeiten und dann wieder ggf. in die TStringList legen.

[aaaaaaaaaa_10]

Also ich muss immer wieder (alle par Sekunden) etwas berechnen. Wie lese ich die Daten denn in eine "richtige" Tabelle?

[jaenicke]

Woher kommen denn die Daten? Legst du die selbst in dieses (suboptimale) Format oder hast du darauf keinen Einfluss?

Ja, wie du es machst, wie gesagt, nimm für jede Zeile eine TStringList, weise Delimiter und DelimitedText zu, dann hast du die Spalten. Diese packst du jetzt in ein zweidimensionales Array. Dessen Größe musst du natürlich vorher mit SetLength anpassen.
Das ist sicher nicht die schnellste Herangehensweise, aber solange die Datenmengen nicht zu groß sind akzeptabel.

[aaaaaaaaaa_10]

Darauf habe ich keinen Einfluss. Wieso "suboptimal"?

Zitat:

Ja, wie du es machst, wie gesagt, nimm für jede Zeile eine TStringList, weise Delimiter und DelimitedText zu, dann hast du die Spalten

Damit habe ich doch nur die Zeile mit Trennzeichen, aber doch noch keine Spalten :?: :gruebel:

[mkinzler]

Doch in der 2. Stringliste werden die Werte anhand des Trenners zu Spalten

[aaaaaaaaaa_10]

Ach so,ich probiere es gleich mal aus.

[jaenicke]

Zitat:

Zitat von aaaaaaaaaa_10

Wieso "suboptimal"?

Weil die Daten erst geparst werden müssen um damit zu arbeiten.

Zitat:

Zitat von aaaaaaaaaa_10

Damit habe ich doch nur die Zeile mit Trennzeichen, aber doch noch keine Spalten :?: :gruebel:

Beispiel:

Delphi-Quellcode:

MyList.Delimiter := #9;
MyList.DelimitedText = 'a'#9'b'#9'c';

Jetzt hast du in der TStringList drin:

Code:

a
b
c

Du kannst also direkt auf die Spalteninhalte zugreifen.

[mkinzler]

Zur Sicherheit würde ich noch

Delphi-Quellcode:

MyList.StrictDelimiter := True;

setzen um sicherzustellen, dass nicht weitere Trenner verwendet werden ( Leerzeichen usw.)

[aaaaaaaaaa_10]

Ich lade also die vorhandene StringList in eine neue?

Delphi-Quellcode:

 ZwischenSpeicher.LoadFromFile(VorhandeneDatei);

Nun will ich ab Zeile 0 bis count-1 der vorhandenen Datei die Zeilen als spalten in die ZwischenSpeicher StringList speichern.

Delphi-Quellcode:

ZwSpeicher.Delimiter := #9;
         for i := 1 to Sek.Count-1 do
          ZwSpeicher.DelimitedText := Sek.Strings[i];

Nun noch in die neue Datei laden

Delphi-Quellcode:

ZwSpeicher.SaveToFile(TestDatei);

Aber irgendwas scheint da nicht zu stimmen. Ich habe nur die erste Zeile als Spalte.Und mehr kommt da nicht