Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чтение n-строки из .txt в переменную / 10 сообщений из 10, страница 1 из 1
23.07.2018, 18:24
    #39677875
fermp
fermp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
Нужна программа, которая считывает опр. строку из *.txt в переменную.

Например, файл txt.txt имеет содержание:
123
456
789
Программа запишет содержимое 2й строки в переменную b.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 18:31
    #39677881
gssbox
gssbox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TForm5.Button1Click(Sender: TObject);
 var
  SL: TStringList;
  B: Integer;
  StrNum: Integer;
begin
      StrNum := 1;
      SL.Create;
      try
       SL.LoadFromFile('txt.txt');
       B := StrToInt(SL.Strings[StrNum]);
      finally
       SL.Free;
      end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 18:39
    #39677882
fermp
fermp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
gssbox,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 18:48
    #39677887
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
fermpНужна программа, которая считывает опр. строку из *.txt в переменную.

И в чём проблема? Открываешь файл, пропускаешь ненужные строки, читаешь нужную, закрываешь
файл.

RTFM AssignFile(), Reset(), SeekEOLN(), ReadLn(), CloseFile().
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 18:50
    #39677888
fermp
fermp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
Dimitry Sibiryakov,
Проблема в том, что не разбираюсь в этом, вот и прошу уже готовый код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 18:59
    #39677893
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
fermpПроблема в том, что не разбираюсь в этом

Ну и забей. Одна не сданная лаба тебя не убьёт.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 19:14
    #39677900
fermp
fermp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
Line := TStringList.Create;
Line.LoadFromFile('txt.txt');
Memo1.Lines.Add(Line.Strings[2]);
Line.Free;

Можно впихнуть значение каким-то образом не в Memo, а в переменную?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 19:25
    #39677905
fermp
fermp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
Решеноvar
Line:TStrings;
b: String;

begin
Line := TStringList.Create;
Line.LoadFromFile('file_name');
b:=Line.Strings[2];
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 19:30
    #39677908
Tactical Nuclear Penguin
Tactical Nuclear Penguin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
fermpРешеноvar
Line:TStrings;
b: String;

begin
Line := TStringList.Create;
Line.LoadFromFile('file_name');
b:=Line.Strings[2];
end;


удачи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2018, 20:09
    #39677932
gssbox
gssbox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение n-строки из .txt в переменную
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
procedure TForm5.Button1Click(Sender: TObject);
 var
  SL: TStringList;
  I: Integer;
  S: String;
  NumStr: Integer;
begin
      NumStr := 2; //Номер строки в файле txt.txt
      SL := TStringList.Create;
      try
       SL.LoadFromFile('D:\txt.txt');
       I := StrToInt(SL.Strings[NumStr - 1]); //Число
       S := SL.Strings[NumStr - 1];           //Строка
      finally
       SL.Free;
      end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чтение n-строки из .txt в переменную / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 515ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040599]:
 0ms
get settings:
 10ms
get forum list:
 23ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 171ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 224ms
total:  515ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]