Var FList: TStringList; tmpStr: String; Begin FList:= TStringList.Create; FList.LoadFromFile(TextFileName); IF n < FList.Count Then begin tmpStr:= FList.Strings[5] + FList.Strings[6] + ... + FList.Strings[n]; ShowMessage(tmpStr); End; FList.Free; End;
FList: TStringList;
tmpStr: String;
Begin
FList:= TStringList.Create;
FList.LoadFromFile(TextFileName);
IF n < FList.Count Then begin
tmpStr:= FList.Strings[5] + FList.Strings[6] + ... + FList.Strings[n];
ShowMessage(tmpStr);
End;
FList.Free;
End;