Witam wszystkich
Mam znowu problem i licze że znowu ktoś mi pomoże – Dotyczy Delhi – ListView
Dopiero się ucze więc nie krzyczcie
Mój problem jest taki iż na formie 1 mam dwie procedury – dopisz która dodaje do listview na formie 2 i writedate która zapisuje do pliku.
Ta pierwsza działa ale ta dróga coś kopie bo żle zapisuje
Jak to poprawić !!!!
Mam takie procedurki
procedure TForm1.dopisz;
var
p:string;
ListItem : TListItem;
begin
p:=DateToStr(Date);
with Form1 do
begin
ListItem := form2.ListView1.Items.Add;
ListItem.Caption := p;
ListItem.SubItems.Add(starttime);
ListItem.SubItems.Add(stoptime);
writedate;
end;
end;
procedure TForm1.WriteDate;
var
fsKart : TFileStream;
i : Integer;
begin
fsKart := TFileStream.Create('aaa.dat', fmCreate);
for I := 0 to form2.ListView1.Items.Count -1 do
begin
Data.data := form2.ListView1.Items[i].Caption; {zapis p}
Data.datastr := form2.ListView1. Item[i].SubItems[0]; {zapis starttime}
Data.datastop := form2.ListView1.Item[i].SubItems[1]; {zapis stoptime}
fsKart.Write(Data, SizeOf(TDataRec));
end;
end;