ListBox

[ZhekON]

есть проблема!
Мне нужно, чтобы при выборе определённого рядка в листбоксе, текст этого рядка сравнивается с текстом рядка записи data.ryad которие находятся в файле записей data, и если они идентичны, то вывести содержымое data.textout в Memo1.

На первый взгляд - так просто, а у меня только определённый рядок выводит а остальные нет и что ты ему зделаеш?

[SuperVisor]

Можно исходничек увидеть? Будет все гораздо понятнее...

[ZhekON]

TRe = record
proc : string[50];
opus : String[50];
Zindex:integer;
end;

var
Form1: TForm1;
f : file of Tre;
data:Tre;
i,h:integer;
temp:string[50];

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Memo1.Clear;
form1.Memo2.Clear;
assignfile(f,fname);
reset(f);
h:=-1;
while not eof(f) do
begin
read(f,data);
listbox1.Items.Add(data.proc);
h:=h+1;
end;
closefile(f);
end;

// добавление записи в файл
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
assignfile(f,fname);
reset(f);
seek(f,sizeof(f));
data.opus:='';

data.proc:=edit2.Text;

if memo2.Text<>'' then
for i:=0 to memo2.Lines.Count do
data.opus:=data.opus+memo2.Lines[i];
if data.proc<>'' then
begin
data.Zindex:=h+1;
write(f,data);
label5.Show;
timer1.Enabled:=true;
listbox1.Items.Add(data.proc);
h:=h+1;
memo2.Clear;
end
else
begin
if (data.proc='') then showmessage('Введіть назву функції чи процедури!');
exit;
end;
closefile(f);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
memo1.Clear;
assignfile(f,fname);
reset(f);
while not eof(f) do
begin
read(f,data);
if listbox1.ItemIndex=data.Zindex then
memo1.Text:=data.opus;
end;
closefile(f);
end;



но здесь я пытался использовать щётчик... и вобщем у меня щас голова не работает, такчто я чтото не могу ничего усовершэнствовать... да и с листбоксом вообще редко встречаюсь....

[Kostyan]

Мне нужно, чтобы при выборе определённого рядка в листбоксе, текст этого рядка сравнивается с текстом рядка записи data.ryad которие находятся в файле записей data, и если они идентичны, то вывести содержымое data.textout в Memo1.

и

if listbox1.ItemIndex=data.Zindex then

но здесь не текст "рядка" сравнивается, хотя на первый взгляд все правильно.

[ZhekON]

но я веть писал, что я в даном примере использовал щётчик а не строку(это ужэ крайний элемент) а хотелось бы строку, ну чтобы код был проще и без "data.Zindex"

[ZhekON]

ладно... подскажыте хоть как получить текст выделеного рядка? чтобы потом его сровнять с уже имеещимся рядком в файле-записи.

[RSLoader]

Если честно, то не совсем понял задачу...
А выделенную ячейку в ListBox можно получить так:
ListBox1.Items[ListBox1.ItemIndex]

[RSLoader]

Если честно, то не совсем понял задачу...
А текст выделенной ячейки в ListBox можно получить так:
ListBox1.Items[ListBox1.ItemIndex]