Spaltenweise auf TStringList zugreifen

[jaenicke]

Zitat von aaaaaaaaaa_10:

In die Test.txt wird aber immer nur die neue Zeile geschrieben und zwar so oft, wie Zeilen in der 3SekDatei vorhanden sind.Die vorherigen verschwinden.

Genau das hast du doch auch geschrieben...

Zitat von aaaaaaaaaa_10:

Delphi-Quellcode:

ZwSpeicher.DelimitedText := Sek.Strings[Sek.Count-1];
...
        for z := 0 to Zeilenanzahl-1 do
        begin;
          for s := 0 to Spaltenanzahl-2 do
          begin
            StringArray[s,z] := ZwSpeicher.Strings[s+2];

Du legst die letzte Zeile in ZwSpeicher und liest danach Zeilenanzahl mal die selben Strings aus. Denn ZwSpeicher.Strings[s+2] ist ja immer das selbe, wenn die äußere Schleife (z) immer wieder durchläuft...

[aaaaaaaaaa_10]

Aber alle 3 Sekunden wird ja geschaut ob ne neue Zeile existiert,wenn ja, dann wird die in ZwSpeicher als Spalte geschrieben und ins Array übertragen. Dann sollte doch bei der ersten vorhandenen Zeile ein Array (ZwSpeicher.Count-2,1 entstehen). Und wenn nun die 2. zeile hinzukommt, dann soll die ans Array angehängt werden. Und so weiter. Wo liegt denn da bloß mein Denkfehler?

[jaenicke]

Du hängst doch aber nix an, sondern gehst in der zitierten äußeren Schleife alle Zeilen durch und schreibst die Zeile überall hinein...

[aaaaaaaaaa_10]

Ja, aber wie hänge ich das denn an? Ich hab keinen Plan mehr

[jaenicke]

Naja, ich würde sagen die Größe setzen ist schon einmal eine gute Idee, aber wie wäre es, wenn du danach auch wirklich nur in die letzte Zeile etwas schreibst?

[aaaaaaaaaa_10]

Aber bei TFileStream gibts doch nicht so was wie count oder? ich weiß im mom echt nicht wie ich das machen soll

[jaenicke]

Was hat das damit zu tun? Es geht doch um das Array, in das zu immer wieder das selbe schreibst...
Statt deiner beiden Schleifen reicht es doch, wenn du in die letzte Zeile schreibst...

Delphi-Quellcode:

for s := 0 to Spaltenanzahl - 2 do 
  StringArray[s, Zeilenanzahl - 1] := ZwSpeicher.Strings[s + 2];

[aaaaaaaaaa_10]

Hatte ich eben auch in ähnlericher Form schon.

Delphi-Quellcode:

z := Zeilenanzahl-1;
          begin;
            for s := 0 to Spaltenanzahl-2 do
            begin
              StringArray[s,Zeilenanzahl-1] := ZwSpeicher.Strings[s+2];
              Temp := (StringArray[s,z]) + ';';
              TestDatei.Write(PChar(Temp)^,Length(Temp));
            end;
           Temp := (StringArray[s,z]) + #13#10;
           TestDatei.Write(PChar(Temp)^,Length(Temp));
          end;

[jaenicke]

Statt irgendwas in eine Textdatei zu schreiben, solltest du lieber im Debugger direkt schauen was da passiert.

Was passiert denn, wenn du es so machst?

Wie wäre es, wenn du ein kleines Testprojekt anhängst?

[aaaaaaaaaa_10]

Statt irgendwas in eine Textdatei zu schreiben, solltest du lieber im Debugger direkt schauen was da passiert Wie mache ich das? (Entschuldige,aber ich bin wirklich noch sehr neu)