PaPaNi

one of the archives with 2024 in the name contains some code that could be a program. But it doesn't look professional.

I don't know if other IDEs have such functions. But I often need a "Undo"-function for working with the form. For example, you changed the width of one component with the mouse and want to return the previous value. ( Or I just didn't see this function in Delphi).

GrepEx

I use that.. I don't subscribe to any streaming services too. I download the songs on my phone per USB at home. And I listen my songs in the car using one android app.

if you have FastReport then i would try to create a file with it.

... and used TForm1, ComboBox1 ..hmmm.. Sure!

Maybe a little offtopic, but ...

Hey, Community! Given: - Delphi 2007 - One Unit, where should be showed one warning, because one variable is deprecated - Project options -> Compiler messages: Show warnings and show hints is ON - All warnings in the list except platform symbol, platform unit, unsafe type, unsafe code and unsafe typecast is ON Problem: 1. I do Build and get no warnings. DCU file date/time is changed. Then I do Compile - no warnings again. 2. I change this unit (one space symbol is added). I do Build again - no warnings. Date/time of DCU file is changed. 3. I change this unit again and now Compile (without Build). This changes the DCU file date/time again, but in this case I see one warning! I figured, that Build does exactly the same as Compile, but with all units regardless of whether they have changed. I.e. I expect to see the same warning after Build too. Im wrong/its a bug/its a future/one option must be changed? I want to see this warning after Build too. Any ideas are welcom! Thanks!

If you have GExpert installed, than use GExperts ->Replace Components

maybe this can be helpful? https://stackoverflow.com/questions/26539403/position-of-label-caption-inside-progressbar

The simplest solution that came to my mind. procedure Tf_TesterMain.DeleteStringsWithoutDigits; var List: TStringList; begin List := TStringList.Create; try List.Add('abc'); List.Add('def23'); List.Add('fgr65'); List.Add('kbt'); List.Add('idopt87'); doWithList(List); finally FreeAndNil(List); end; end; ... procedure doWithList(_List: TStringList); var i: Integer; begin for i := _List.Count - 1 downto 0 do begin if not ContainsDigit(_List[i]) then begin _List.Delete(i); end; end; end; ... function ContainsDigit(const _Text: string): Boolean; var i: Integer; begin Result := False; for i := 1 to Length(_Text) do begin if _Text[i] in ['0'..'9'] then begin Result := True; Break; end; end; end;

The second argument is missing... should be like: if TryStrToDate(edtFrom.Text, DateVariable) then where DateVariable has a type TDateTime.

I had exactly the same guess.

Can we see the code?

Looks like this.... https://www.hovatek.com/forum/thread-31664.html