Einzelnen Beitrag anzeigen

strom

Registriert seit: 23. Aug 2008
Ort: Keine Ergebnisse gefunden
290 Beiträge
 
#8

AW: Text- Dateien im StringGrid auflisten

  Alt 27. Dez 2014, 21:19
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 Zeilethen //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;
  Mit Zitat antworten Zitat