ich habe ein problem mit dem füllen eines stringrid mit suchergebnissen.
ein memo kann ich so ganz prima füllen...
werwende dafür den tip:
http://joachim.mohr.rottenburg.bei.t...ml#durchsuchen
Code:
procedure ZuMemoFallsKiterienerfuellt(const pfad, BestimmteDatei,
SuchTextInDerDatei: string);
begin
if Str1IstInStr2(BestimmteDatei,pfad)
and istInderDatei(SuchTextInDerDatei,pfad) then
form1.memo1.lines.add('"'+pfad + '" enthält den Text "' +
SuchTextInDerDatei);
end;
ich muss aber die ersten beiden reihen eines stringrids füllen...
http://www.fusshoeller.com/screens/stringgrid.gif
habe es so versucht, klappt aber nicht...
Code:
procedure ZuMemoFallsKiterienerfuellt(const pfad, BestimmteDatei,SuchTextInDerDatei: string);
var
i:integer;
aStringList : TStringList;
begin
aStringList := TStringList.Create;
if Str1IstInStr2(BestimmteDatei,pfad)
and istInderDatei(SuchTextInDerDatei,pfad) then
// form1.memo1.lines.add('"'+pfad + '" enthält den Text "' + SuchTextInDerDatei);
FOR i := 0 TO aStringList.Count - 1 DO
BEGIN
Form1.StringGrid1.Cells[0, i + 1] := ('"'+pfad + '" enthält den Text "' + SuchTextInDerDatei[i]);
end;
end;
1) im pfad sollte aber nur noch der ordner stehen ohne pfad (C:\xyz\
, das sollte alles in die erste spalte (da wo jetzt webbrowser steht)
2) das "enthält den Text " muss raus (ist das kleinste problem
3) und in die zweite spalte sollte dann der name der datei. ( da wo jetzt tippname steht)
wer blickt hier durch und mag helfen?
grüße horst