title image


Smiley Problem mit TStringList
Hallo,



hab ein erhebliches Problem mit TStringList.

Habe bereits stundenlang Tipps aus dem Forum probiert, geht alles nicht.

Als Element einer Klasse habe ich eine TStringList, diese wird mit Create auch im Konstruktor der Klasse angelegt (es tritt keine exception auf). In der Methode initScrollBox wird eine Datei in die Stringliste eingelesen (es tritt kein Fehler auf, die Datei existiert auch). Wenn ich dann in der Methode updateScrollContent die StringListe in ein RichEdit übernehmen möchte, ist die leer. Ein Zugriff auf Elemente aus der Stringliste mit ScrollBoxContent.Strings[0] führt zu einer Exception mit der Meldung, dass der Index überschritten wurde. Die Stringliste scheint irgendwie deklariert worden zu sein, aber doch nicht zu existieren?

Danke für alle Tipps.





type

TSubPanel = class

private

ScrollBoxContent : TStringList;

...

end;



implementation



// -----------------------------------------------------------------------------

constructor TSubPanel.Create;

begin

try

ScrollBoxContent := TStringList.Create;

except

showmessage('Fehler');

end;

end;



// -----------------------------------------------------------------------------

procedure TSubPanel.initScrollBox(iScrollBoxVisible : boolean; iScrollBoxFilename : string);

begin

if FileExists(ScrollBoxFilename) = true then begin

try

ScrollBoxContent.LoadFromFile(ScrollBoxFilename);

ScrollBoxContent.Add('test');

except

showmessage ('Fehler Datei einlesen');

end;

end;

end;



// -----------------------------------------------------------------------------

procedure TSubPanel.updateScrollContent(var iRichEdit : TRichEdit; iScrollPixel : integer);

begin

iRichEdit.Lines.Assign(ScrollBoxContent);

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: