Lazarus

Miscellaneous => Suggestions => Topic started by: tverweij on May 21, 2018, 02:06:31 pm

Title: Advertisement
Post by: tverweij on May 21, 2018, 02:06:31 pm
1. FPC and Lazarus need donations
2. This forum has a lot of users

1+2=3. Why no advertisements on this forum to earn money?
Title: Re: Advertisement
Post by: tr_escape on May 21, 2018, 04:24:19 pm
Ok. You already doing :)
Title: Re: Advertisement
Post by: wp on May 21, 2018, 04:47:31 pm
Why no advertisements on this forum to earn money?
To the admins of this forum: Please no ads.
Title: Re: Advertisement
Post by: tverweij on May 21, 2018, 04:52:10 pm
Adblocker if you don't want to see them?

As I see it:
You use facebook, twitter and other social media: you pay for it with ads.
You read news: you pay for it with ads.
You do whatever on the internet: you pay with ads.
So why not paying for the use of this forum with ads.
Title: Re: Advertisement
Post by: Thaddy on May 21, 2018, 06:20:40 pm
Adblocker if you don't want to see them?

As I see it:
You use facebook, twitter and other social media: you pay for it with ads.
No I don't.
Quote
You read news: you pay for it with ads.
No, I don't
Quote
You do whatever on the internet: you pay with ads.
So why not paying for the use of this forum with ads.
Because it is not necessary. This forum is not a commercial operation. "Some" content on the internet is legitimately free. I pay for wikipedia.(you should also do that, 2-10$)  That's it.
If the forum needs funding, that will be solved.
Title: Re: Advertisement
Post by: HeavyUser on May 21, 2018, 06:24:43 pm
I have no problems with that, my add shields are always up and I have been known to quit visiting a site if it tries to push ads as mandatory.
Title: Re: Advertisement
Post by: Thaddy on May 21, 2018, 06:34:06 pm
Try anagrams:
Code: Pascal  [Select]
  1. {$ifdef fpc}{$mode delphi}{$H+}{$notes off}{$endif}
  2. uses sysutils, classes, generics.collections;
  3. {
  4. * IsAnagram determines if a pair of given words and or sentences
  5. * are an anagram of eachother. (C) 2018 Thaddy... or Todd...
  6. }
  7. function IsAnagram(const a,b:string):Boolean;
  8. var
  9.   x,y:TCharArray;
  10.   v,w:string;
  11. begin
  12.   x:= a.ToLower.ToCharArray;
  13.   y:= b.ToLower.ToCharArray;
  14.   TArrayHelper<char>.Sort(x);
  15.   TArrayHelper<char>.Sort(y);
  16.   setstring(v,Pchar(x),length(x));
  17.   setstring(w,Pchar(y),length(y));  
  18.   Result := v = w;
  19. end;
  20. begin
  21.   writeln(IsAnagram('Thaddy de Koning','Todd Hayden King'));
  22. end.
Oops I just gave away my alias... (but I have more) >:D
Title: Re: Advertisement
Post by: JanRoza on May 21, 2018, 07:17:19 pm
For someone who has already sworn off Lazarus/FPC in his first post tverweij now wants to tell us how to run a noncomnercial forum? Come on now, lets act normal and start using Lazarus and then ask questions. I am glad this forum has no ads, please forget this idea. We dont need it.