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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.07.2011, 19:48   #11
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Я знаю почему так)))
У тебя разные формы поэтому так значения присваиваются.
Сделай так
В форме FormRashod ListViewRashod в событие OnSelectItem назначь общую переменную допустим iSelectItem: integer;
которая будет сохранять позицию строки.

Пример:
Код:
var
  FormRashod: TForm1;
iSelectItem: integer=0;

implementation

{$R *.dfm}

procedure TForm1.ListViewRashod1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
iSelectItem:=Item.Index;//В ней будет сохраняться позиция строки
end;
А затем используй так:
Код:
EditRashodDobSumma.text := FormRashod.ListViewRashod.Items[FormRashod.iSelectItem].Caption;
Можно конечно все по другому сделать без доп. имен как FormRashod.
или свой ListView создать, но пока изучайте простые примеры, это уже позже разберетесь в интернете много инфы на эту тему

Последний раз редактировалось Aliens_wolfs; 12.07.2011 в 20:02.
Aliens_wolfs вне форума Ответить с цитированием
Старый 12.07.2011, 20:08   #12
TotKtoNado
юзер
Форумчанин
 
Аватар для TotKtoNado
 
Регистрация: 22.12.2010
Сообщений: 245
По умолчанию

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Я знаю почему так)))
У тебя разные формы поэтому так значения присваиваются.
Сделай так
В форме FormRashod ListViewRashod в событие OnSelectItem назначь общую переменную допустим iSelectItem: integer;
которая будет сохранять позицию строки.

Пример:
Код:
var
  FormRashod: TForm1;
iSelectItem: integer=0;

implementation

{$R *.dfm}

procedure TForm1.ListViewRashod1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
iSelectItem:=Item.Index;//В ней будет сохраняться позиция строки
end;
А затем используй так:
Код:
EditRashodDobSumma.text := FormRashod.ListViewRashod.Items[FormRashod.iSelectItem].Caption;
Можно конечно все по другому сделать без доп. имен как FormRashod.
или свой ListView создать, но пока изучайте простые примеры, это уже позже разберетесь.
что то сообразить не могу почему переменная iSelectItem стоит посреди FormRashod. Обычно своиства так присваиваються. И ты еще пропустил если я прав ListViewRashod. У ListView же нету свойства iSelectItem.
Пожайлуста пиши понятнее
TotKtoNado вне форума Ответить с цитированием
Старый 12.07.2011, 20:20   #13
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

)))
iSelectItem: integer=0; она находится в форме FormRashod в общей Var туда ее пропиши там может твое быть все что угодно.
Это искуственно созданная мною переменная она будет для сохронения позиции именно в форме FormRashod

А лучше покажи часть своего кода формы FormRashod я подправлю

Последний раз редактировалось Aliens_wolfs; 12.07.2011 в 20:24.
Aliens_wolfs вне форума Ответить с цитированием
Старый 12.07.2011, 20:25   #14
TotKtoNado
юзер
Форумчанин
 
Аватар для TotKtoNado
 
Регистрация: 22.12.2010
Сообщений: 245
По умолчанию

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
)))
iSelectItem: integer=0; она находится в форме FormRashod в общей Var туда ее пропиши там может твое быть все что угодно
Это искуственно созданная мною переменная она будет для сохронения позиции именно в форме FormRashod
слушай я кажеться понял виной моя невнимательность
я же в код прописал тока одни компонент
а при отладке я смотрю на все компонеты которые размещены на форме
TotKtoNado вне форума Ответить с цитированием
Старый 12.07.2011, 20:28   #15
TotKtoNado
юзер
Форумчанин
 
Аватар для TotKtoNado
 
Регистрация: 22.12.2010
Сообщений: 245
По умолчанию

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

Код:
  FormRashodDob.editRashodDobSumma.text:=intToStr(FormRashod.ListViewRashod.SubItems[i].Caption);
TotKtoNado вне форума Ответить с цитированием
Старый 12.07.2011, 20:40   #16
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

А зачем тебе intostr там и так строковый параметр, без него делай
SubItems = колонку дает и так не пишется

Код:
FormRashodDob.editRashodDobSumma.text:=FormRashod.ListViewRashod.Items[FormRashod.iSelectItem].Caption;

Последний раз редактировалось Aliens_wolfs; 12.07.2011 в 20:43.
Aliens_wolfs вне форума Ответить с цитированием
Старый 12.07.2011, 20:54   #17
TotKtoNado
юзер
Форумчанин
 
Аватар для TotKtoNado
 
Регистрация: 22.12.2010
Сообщений: 245
По умолчанию

Цитата:
Сообщение от TotKtoNado Посмотреть сообщение
все равно изменяю первую строку а в едиты присваиваються значения последней строки
я вот на форму присвоил при выделении строки присвоить какая строка выделена и выскачила ошибка ---------------------------
Financialadvisor
---------------------------
Access violation at address 0047A898 in module 'FinancialAdvisor.exe'. Read of address 00000004.
---------------------------
ОК
---------------------------
TotKtoNado вне форума Ответить с цитированием
Старый 12.07.2011, 20:57   #18
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Что то не так делаете там все просто. Покажи свой проект посмотрю и исправлю.

Последний раз редактировалось Aliens_wolfs; 13.07.2011 в 08:45.
Aliens_wolfs вне форума Ответить с цитированием
Старый 13.07.2011, 19:06   #19
TotKtoNado
юзер
Форумчанин
 
Аватар для TotKtoNado
 
Регистрация: 22.12.2010
Сообщений: 245
По умолчанию

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Что то не так делаете там все просто. Покажи свой проект посмотрю и исправлю.
http://zalil.ru/31417534
TotKtoNado вне форума Ответить с цитированием
Старый 13.07.2011, 21:35   #20
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Сейчас посмотрим ваш код

Ну во первых в Delphi контролам названия на русском языке в основном не дают
дата: TLabel;
сумма: TLabel;

Последний раз редактировалось Aliens_wolfs; 13.07.2011 в 23:17.
Aliens_wolfs вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
добавление строк в ListView TotKtoNado Общие вопросы Delphi 1 10.07.2011 16:07
добавление строк в ListView TotKtoNado БД в Delphi 0 06.07.2011 14:10
Изменение listview nenoob1 Общие вопросы Delphi 3 19.07.2010 15:39
Отображение строк в ListView Vistar Общие вопросы .NET 0 22.05.2010 11:59
Изменение параметров ListView через ShowMessage Romanbl4 Компоненты Delphi 5 29.06.2007 15:46