Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Чирикан
1 / 1 / 1
Регистрация: 27.09.2015
Сообщений: 69
1

Вывести с использованием TListView статистическую информацию о выбранном текстовом файле

23.12.2016, 01:30. Просмотров 238. Ответов 2
Метки нет (Все метки)

Вывести с использованием TListView статистическую информацию о выбранном текстовом файле: для каждой строки указывается номер строки, первое слово, количество символов в ней, количество слов в ней.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2016, 01:30
Ответы с готовыми решениями:

Вывести куда-нибудь информацию, если в текстовом файле есть 2 одинаковых ip-адреса
Здравствуйте , у меня есть текстовый файл туда записываются данные ip адрес и...

Здраствуйте, как в текстовом файле все имена собственные вывести заглавными буквами на delphi?
Здраствуйте, как в текстовом файле все имена собственные вывести заглавными...

Программа должна искать в текстовом файле строчку и если она есть вывести весь текстовый файл в memo (Где ошибка?)
procedure TForm16.Button2Click(Sender: TObject); var f,g:textfile;...

Поиск в текстовом файле
Здравствуйте! Подскажите, как мне осуществить поиск по файлу строк между двумя...

Рандом в текстовом файле
1 // номер вопроса 24 ...

2
Чирикан
1 / 1 / 1
Регистрация: 27.09.2015
Сообщений: 69
23.12.2016, 01:32  [ТС] 2
примерно так
0
Миниатюры
Вывести с использованием TListView статистическую информацию о выбранном текстовом файле  
Чирикан
1 / 1 / 1
Регистрация: 27.09.2015
Сообщений: 69
23.12.2016, 01:34  [ТС] 3
Pascal
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
unit Unit1;
{$mode objfpc}{$H+}
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;
 
type
  { TForm1 }
 
  TForm1 = class(TForm)
    ListView1: TListView;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var s:string;  i,ksm,ksl,kst:integer;
  f:textfile;
begin
  if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
  {$I-}
  reset(f);
  {$I+}
  if ioresult <> 0 then begin ShowMessage('Error');
    kst:=0;
while not eof(f) do
 begin
  ksm:=0;ksl:=0;
  read(f,s);
  kst:=kst+1;
  ksm:=ksm+length(s);
  for i:=1 to length(s) do
  if (s[i]<>' ')and((s[i-1]=' ')or(i=1)) then
  begin     {если не пробел, а перед ним пробел или это первый символ}
  ksl:=ksl+1;{считаем все слова}
 end;
  end;
 end;
 end;
 system.close(f);
end;
end.
примерно то что уже есть
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2016, 01:34

Поиск в текстовом файле
В текстовом файле поместить информацию о писателях и их произведениях (20…30...

Удаление в текстовом файле
Очень простая задача: нужно открыть текстовый файл 'Test.txt', найти в нём...

Поиск в текстовом файле
Подскажите пожалуйста, как сделать поиск слова в текстовом файле, а потом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru