Witam, i z tego miejsca proszę was o pomoc.
begin
Application.ProcessMessages;
ClickData := TClickData.Create;
ClickData.RunTime := DateTimePicker.Time;
ClickData.ItemToDelete := False;
ClickData.zadanie := 'Atak';
ListView1.AddItem(TimeToStr(ClickData.RunTime), ClickData);
ListItem := ListView1.Items.Item[ListView1.Items.Count - 1];
ListItem.SubItems.Add(clickdata.Zadanie);
ListItem.SubItems.Add(p13.Text);
ListItem.SubItems.Add(p14.Text);
for z:=1 to 12 do
begin
ListItem.SubItems.Add(Tedit(findcomponent('p'+inttostr(z))).Text);
end;
ListItem.SubItems.Add(p15.text);
ListView1.AlphaSort;
NewTime := DateTimePicker.Time;
DateTimePicker.Time := NewTime;
clickdata.Free;
end;
end;
Mam takie cos, działa dodaje mi, tak tylko jak wczytać np. jaką wartośc ma p5 w tym? nie w p.text tylko w listview