изменение строк в ListView

[TotKtoNado]

----------------------

[Aliens_wolfs]

В вашем Юните сделайте изминения то что зеленым добавить, красным убрать

unit UnitRashod;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls, ComCtrls, Menus;

type
TFormRashod = class(TForm)
Panel2: TPanel;
PopupMenuRashod: TPopupMenu;
NUdRashod: TMenuItem;
Panel3: TPanel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
LabelItogRashod: TLabel;
Label7: TLabel;
Label6: TLabel;
Label2: TLabel;
NIzmRashod: TMenuItem;
NDobRashod: TMenuItem;
Label3: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
TimerRashod: TTimer;
ListViewRashod: TListView;
procedure NIzmRashodClick(Sender: TObject);
procedure NDobRashodClick(Sender: TObject);
procedure ListViewRashodSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

//Добавить это
type
TItemList = record
AllDateArray: TDateTime;
summa, skidka: currency;
val, schet, com, statya: string;
end;

var
FormRashod: TFormRashod;
i,k,iSelectItem:integer;
AllDateArray :Array of TDateTime;
summa,skidka:array of currency;
val,schet,com,statya:array of string;//Убрать
ItemList : array of TItemList;//Добавить это


implementation

[Aliens_wolfs]

Если не получится то позже будет время напишу твою прогу и валожу

[TotKtoNado]

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

Если не получится то позже будет время напишу твою прогу и валожу

ругаеться
[DCC Error] UnitRashod.pas(58): E2003 Undeclared identifier: 'TItemList'

  ItemList : array of TItemList;

[Aliens_wolfs]

А ты это в каком юните прописал?
type
TItemList = record
AllDateArray: TDateTime;
summa, skidka: currency;
val, schet, com, statya: string;
end;

[TotKtoNado]

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

А ты это в каком юните прописал?
type
TItemList = record
AllDateArray: TDateTime;
summa, skidka: currency;
val, schet, com, statya: string;
end;

UnitRashod

[Aliens_wolfs]

ItemList : array of TItemList; и эту же строку там. покажи часть кода, где они прописаны

[TotKtoNado]

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

ItemList : array of TItemList; и эту же строку там. покажи часть кода, где они прописаны

unit UnitRashod;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls, ComCtrls, Menus;

type
  TFormRashod = class(TForm)
    Panel2: TPanel;
    PopupMenuRashod: TPopupMenu;
    NUdRashod: TMenuItem;
    Panel3: TPanel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    LabelItogRashod: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label2: TLabel;
    NIzmRashod: TMenuItem;
    NDobRashod: TMenuItem;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    TimerRashod: TTimer;
    ListViewRashod: TListView;
    procedure NIzmRashodClick(Sender: TObject);
    procedure NDobRashodClick(Sender: TObject);
    procedure ListViewRashodSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    { Private declarations }
  public
    type
      TItemList = record
        AllDateArray: TDateTime;
        summa, skidka: currency;
        val, schet, com, statya: string;
end;

  end;

var
  FormRashod: TFormRashod;
  i,k:integer;
  ItemList : array of TItemList;

implementation

[Aliens_wolfs]

Зачем ты ее в public формы записал посмотри лучше мой последний код
запиши мой агент Aliens_Wolfs@mail.ru давай по нему спишимся а то форум засоряем

[TotKtoNado]

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

Зачем ты ее в public формы записал посмотри лучше мой последний код
запиши мой агент Aliens_Wolfs@mail.ru давай по нему спишимся а то форум засоряем

что то жду жду а ответа нету?