Problem mit CompressBuf

[Aphton]

Es sieht so aus, als ob du nicht wüsstest, was du da machst:

Delphi-Quellcode:

// snip
  {1} s:=s+Info[i].data[Low(data)];
  {2} for j:=Low(TData)+1 to High(TData)
// snip

1. Du kannst per "." nicht auf die Elemente dieses Arrays zugreifen, denn der Typ (= String) beinhaltet keine weiteren Elemente (so wie Data)

2. Warum nicht direkt das erste Element in derselben Funktion mit einbeziehen (und mit 0 anfangen)?

3. Du hast vergessen, s am Anfang zu initialisieren!

Verbesserung:
Mach das ".data" weg! Es ist ein (mehr oder weniger) einfaches 2D Array wobei die erste Dimension dnymisch ist und die Zweite statisch -> [i, j]

Delphi-Quellcode:

var
  InfoStrStream: String;
  i, j: Integer;
begin
  InfoStrStream := '';
  for i := 0 to High(Info) do
  begin
    for j := 0 to High(Info[i]) do
      InfoStrStream := InfoStrStream + Info[i,j] + #9;
    // falls du das letzte #9 Element weg haben willst:
    // Delete(InfoStrStream, Length(InfoStrStream), 1);
    InfoStrStream := InfoStrStream + #13#10;
  end; 
end;