[Надеждочка]

вывести из текстового файла в поле memo строку с номером N

[Drozh]

Банальный спсоб

Код:

1 2 3 4 5 6 7 8 9 10

<b>var</b>  AFile: TStrings; <b>begin</b>  AFile := TStringList.Create;  AFile.LoadFromFile('Путь к файлу');    Memo1.Lines.Add(AFile.Strings[N]);    AFile.Free; <b>end</b>;

В данном случае строки нумеруются от 0, т.е. AFile.Strings[0] - получаешь первую строку

[lmikle]

Ага, а если файл 2Гб?
Тут лучше честно прочитать нужное кол-во строк через readln.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

function ReadStringN(AFileName :String; N :Integer) : String; var   F : TextFile;   I : Integer; begin   Result := '';   AssignFile(F,AFileName);   Reset(F);   I := 1;   While (I <= N) And (Not Eof(F)) Do      ReadLn(F,Result);   CloseFile(F); end;

[Надеждочка]

Спасибо) Помогло

[Микрик]

А если нужно из строки определенное слово ?
или к примеру первая буква слова находится в строке 10-ой по счёту , нужно вытянуть слово , как это зделать ?

[roamer]

Насчет слова из строки можно так :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

function Get_CountWords_In_String(UnChar : TSetChars; Sx : string) : integer; //Определить кол-во слов в строке //UnChar - множество символов - разделителей слов var   InWord : byte;   i : integer; begin   Result:=0;   if length(Sx)>0 then begin      InWord := 0;      i:=0;      while i<length(Sx) do       begin        i:=i+1;        if not (Sx[i] in UnChar) then begin //этот символ - НЕ разделитель           if InWord<=0 then Result:=Result+1; //переход на начало слова           InWord:=1; //Мы внутри слова        end        else begin //этот символ - разделитель           InWord:=0; //Мы снаружи слова        end;      end;   end; end;       function Get_Word_From_String(UnChar : TSetChars; Sx : string; NumWord : integer) : string; //Получить слово из строки по номеру //UnChar - множество символов - разделителей слов //NumWord - номер слова var   InWord    : byte;   NumWordCur, i : integer; begin   Result:='';   if length(Sx)>0 then begin      if NumWord>0 then begin        InWord := 0;        NumWordCur:=0;        i:=0;        while i<length(Sx) do         begin          i:=i+1;          if not (Sx[i] in UnChar) then begin //этот символ - НЕ разделитель             if InWord<=0 then NumWordCur:=NumWordCur+1; //мы - на начале слова             InWord:=1; //Мы внутри слова             if NumWordCur=NumWord then begin //Это - наше слово                Result:=Result+Sx[i];   //и мы его выдираем из строки             end;          end          else begin  //этот символ - разделитель             InWord:=0; //Мы снаружи слова             if NumWordCur=NumWord then begin //Это было - наше слово                i:=length(Sx)+1; //поэтому, выходим из цикла и функции             end;          end;        end;      end;   end; end;

[Микрик]

Сообщение от Drozh

Банальный спсоб

Код:

В данном случае строки нумеруются от 0, т.е. AFile.Strings[0] - получаешь первую строку

А как сделать так что бы выводило данные до определенного слова , например что бы выводило все до строки с текстом "text", слово "text" не выводить на экран . а вывести тоьлко то что до него и начиная со строки номер 50 например.
Благодарю заранее

[Микрик]

Помогите пожалуйста !