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;