Text- Dateien im StringGrid auflisten

[p80286]

Ich hab die Syntax nicht mehr ganz im Kopf aber wenn Du Listbox.Items.Add durch Stringgrid.Cells[1,i]:=Searchrecord.Name ersetzt, sollte es funktionieren.
Du mußt dann noch colcount und rowcount setzen und ggf. i und 1 (oder 0) vertauschen, dann bist Du auf dem Weg.
Und ein Blick in OH hilft natürlich immer weiter.

Gruß
K-H

P.S.

Zitat:

Was ist mit : "// Falls es sich um ein Verzeichnis handelt, rek. aufrufen" gemeint?

Ist nicht Dein Ernst?
Ich vermute stark, daß die ursprüngliche Prozedur SearchFiles hieß, und die wird für Verzeichnisse rekursiv aufgerufen.

[strom]

Danke es geht!

Delphi-Quellcode:

procedure TForm1.Beenden1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  i:integer;
begin
  FindFirst(ExtractFilePath('\\192.168.0.62\d$\Office\Testdaten\Test\') + '*.asc', faAnyFile, SearchRec);
  repeat
   StringGrid1.RowCount := StringGrid1.RowCount + 1;
    for i := StringGrid1.RowCount - 1 downto StringGrid1.FixedRows + 1 do
    StringGrid1.Rows [i].Assign (StringGrid1.Rows [i - 1]);
    Stringgrid1.Cells[1,1]:=(searchrec.Name);
  until FindNext(searchrec) <> 0;
  findclose(searchrec);
end;

[strom]

Habe jetzt noch ein anderes Problem!

Delphi-Quellcode:

procedure TForm1.asciiDateilesen1Click(Sender: TObject);
var
 sl: TStringList;
 zeilennr: integer;
 s:String;
begin
  sl:=TStringList.Create; //Objekt erzeugen

  try
     s := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
     if Length(s) > 1 then begin  //Länge des Text übeprüfen
    sl.LoadFromFile('\\192.168.0.62\d$\Office\Alice Testdaten FuRW\Test\')+ (s);  //Datei in Stringliste laden // Diese Zeile ist rot! Was ist hier falsch?????
    for zeilennr:=0 to sl.Count-1 do begin  //Schleife über alle Zeilen, Zählung
                                            //beginnt mit 0, die Eigenschaft Count
                                            //enthält die Gesamtzahl der Zeilen

      if sl[zeilennr]='Zweite Zeile' then //wenn der Text "Zweite Zeile" gefunden wurde,
        ShowMessage('Text gefunden in Zeile '+IntToStr(zeilennr+1)); //Meldung ausgeben
    end;
    end;
  finally
    sl.free; //Objekt wieder freigeben
  end;
end;

[sx2008]

falsche Klammersetzung

Delphi-Quellcode:

sl.LoadFromFile('\\192.168.0.62\d$\Office\Alice Testdaten FuRW\Test\')+ (s); //Datei in Stringliste laden // Diese Zeile ist rot! Was ist hier falsch?????

sl.LoadFromFile('\\192.168.0.62\d$\Office\Alice Testdaten FuRW\Test\'+s); //Datei in Stringliste laden // so ist's besser