Einzelnen Beitrag anzeigen

mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#14

Re: Konstantenzuweisung [von tmemo.items]

  Alt 18. Mai 2006, 09:59
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.
  Mit Zitat antworten Zitat