TStrings[Memo] mit Variable steuern

[danku]

muss ich wenn ich die tstring create und free gesetzt habe noch
initializieren und finalization?

Zitat von marlem:

du darfst aber dann den text nicht über die stringlisten-eigenschaft "Text" zuweisen,
sondern "add" oder "addstrings" geht glaube auch!

ne Stringlistenverarbeitung immer so machen:

Delphi-Quellcode:

sl := TStringlist.create;
try
hier die Verarbeitung!

finally
sl.free;
end;

ich habe doch per Add gemacht?

Delphi-Quellcode:

Search_Text := TStringList.Create;

  Search_Text.Add(edfilter.text);

  lbfilter.Items.AddStrings(Search_Text);

  Search_Text.free;

die fehlermedldung bei durchlaufen der einzelnen routinen kommt immer bei:

Delphi-Quellcode:

for lk := 0 to Search_text.Count - 1 do begin
              StringGridReplace(sgfiles, Search_text[lk], ' ');

[marlem]

poste nochmal bitte die fehlermeldung.
bin im stress!

[danku]

okay. sag aber mal bitte ob was mit dem aufbau einer tstringlist beim initializieren, finalisieren etc. falsch ist.

hier die meldung:

Zitat:

"Zugriffsverletzung bei Adresse 00474ACF in Modul 'Project1.Exe'. Lesen von Adresse 20646E75.

sobald ich dann bestätige (okay-button) und die anwendung schließe, will windows eine fehlermeldung verschicken und ist kommt

Zitat:

ein Runtim error 216 at 00403EA.

ich sag mal so, als die tstringlist noch nicht vorhanden war,
und ich das alles über die const Search_Text erledigt habe, ging das prog einwandfrei.
nur mit der tstringlist gibts probs.

[mquadrat]

Zitat von danku:

Delphi-Quellcode:

Search_Text := TStringList.Create;
Search_Text.Add(edfilter.text);
lbfilter.Items.AddStrings(Search_Text);
Search_Text.free;

Delphi-Quellcode:

for lk := 0 to Search_text.Count - 1 do begin
StringGridReplace(sgfiles, Search_text[lk], ' ');

Wieso sollte dein Programm in der for-Schleife denn auf Search_text zugreifen können, wenn du es oben direkt wieder freigibst...

lblfilter.Items.Add(edFilter.text);

Delphi-Quellcode:

for lk := 0 to lblFilter.Items.Count-1 do
begin
  StringGridReplace(sgFiles, lblFilter.Items[lk], ' ');
end;

Sollte funktionieren. lblFilter.Items ist vom Typ TStrings, daher kannst du dir die Strinlist Search_Text im Prinzip sparen.

[danku]

oh das funzt. is ja cool.
tstrings ist leider nicht mein thema.