Stream-Lesefehler bei ListView columns caption

[kingflo]

Hallo... ich habe ein komisches Problem. Und zwar will ich jedes ListView meiner anwendung suchen, und die caption der einzelnen Columns setzen.

z.B so:

Delphi-Quellcode:

var
 z,i,j:integer;
 listView:TListView;
begin
  for z := 0 to Screen.FormCount-1 do begin
    for i:=0 to Screen.Forms[z].ComponentCount-1 do begin
     if Screen.Forms[z].components[i] is TListView then begin
       listView:=Screen.Forms[z].Components[i] as TListView;
       for j:=0 to listView.Columns.Count-1 do begin
        listView.Columns[j].Caption:='Hallo';
       end;
     end;
    end;
  end;
end;

leder bekomme ich aber immer einen Stream-Lesefehler und ich weiß nicht warum.

wenn ich aber statt listView.Columns[j].Caption:='Hallo'; folgendes verwende listView.Columns[j].Caption:=listView.Columns[j].Caption dann bekomme ich diesen Fehler nicht... arghh kann mir da jemand helfen? ich weiß net weiter...


mfg

Florian

[kingflo]

Hat sich erledigt... aber falls den fehler auch mal jemand hat: ich habe zwar keine Ahnung voran es liegt, aber wenn ich vorher nen ListView.clear mache dann gehts.

also so:

Delphi-Quellcode:

var
z,i,j:integer;
listView:TListView;
begin
  for z := 0 to Screen.FormCount-1 do begin
    for i:=0 to Screen.Forms[z].ComponentCount-1 do begin
     if Screen.Forms[z].components[i] is TListView then begin
       listView:=Screen.Forms[z].Components[i] as TListView;
       for j:=0 to listView.Columns.Count-1 do begin
        listView.clear;
        listView.Columns[j].Caption:='Hallo';
       end;
     end;
    end;
  end;
end;