Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2014, 09:30   #1
snouwyt
Пользователь
 
Регистрация: 12.03.2014
Сообщений: 10
По умолчанию Delphi ListView

У меня есть программа которая читает файл, выводит и распределяет из него 3 значения по 3 столбцам(фамилия,оценка,кол-во)..у меня она просто читает всё и выводит, а нужно сделать чтобы производился подсчет всех чисел в строке и выводилось во 2 столбец с/а чисел, а в 3 кол-во вех чисел..прошу помочь

Код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListView1: TListView;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  OD:TOpenDialog;
  L:tstringlist;
  s:string;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
   L:=TStringList.Create;
   with L do
  try
    LoadFromFile('C:\aaa.txt');
     with TStringList.Create do
     try
          Delimiter := ' ';
          StrictDelimiter := True;

          for s in L do
          begin
            DelimitedText := s;
            with ListView1.Items.Add do
            begin
              Caption := Strings[0];
              SubItems.Add(Strings[1]);
              SubItems.Add(Strings[2]);
            end;
          end;
        finally
          Free;
        end;

    finally
      Free;
    end;


     end;

end.
snouwyt вне форума Ответить с цитированием
Старый 15.06.2014, 09:40   #2
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

русский не родной?
eval вне форума Ответить с цитированием
Старый 15.06.2014, 11:56   #3
snouwyt
Пользователь
 
Регистрация: 12.03.2014
Сообщений: 10
По умолчанию

всмысле? что не понятно?
snouwyt вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как перетащить элемент ListView в другой ListView? Paul Hindenburg Компоненты Delphi 5 26.01.2013 11:35
Поиск в ListView / Delphi unreal2x Помощь студентам 1 16.06.2012 12:57
[C# + WPF] ListView. Узнать выделена ли строка в нём. ListView.View == GridView. Casper-SC WPF, UWP, WinRT, XAML 2 12.08.2010 19:04
ListView+Object (Delphi) VadEr Помощь студентам 2 18.03.2010 15:40
Не могу разобраться с ListView в delphi DannyKing Помощь студентам 1 21.05.2009 18:21