your are really good, thank you so much.
Here comes the tested version.
I just brushed your code slightly:
add in uses:
DateUtils
Call by a button's click event by:
procedure TForm_Notizen.Button_SearchCalendarClick(Sender: TObject);
Var Hit: TDateTime;
begin
Hit:=TvPlanItFrame.SucheEvent('test');
ShowMessage(DateToStr(Hit));
end;
// searches for an event in tVPlanit
function TTvPlanItFrame.SucheEvent(Nadel: string): TDateTime;
var
res: TVpResource;
event: TVpEvent;
i: Integer;
begin
Result := 0;
Nadel:=trim(Nadel); // Nadel = needle = searchstring
If Nadel = '' then begin
ShowMessage('Bitte einen Suchbegriff wählen!'); // = "please choose something to search for"
exit;
end;
res := VpControlLink_my.Datastore.Resource; // i.e. VpControlLink1
if res = nil then
exit;
for i := 0 to res.Schedule.EventCount-1 do
begin
event := res.Schedule.GetEvent(i);
if SameText(event.Description, Nadel) then
begin
Result := RecodeYear(event.StartTime, YearOf(Now)); // needs dateUtils
exit;
end;
end;
end;