Κώδικας για Delphi

Διαγραφή όλων των κενών χαρακτήρων πριν και μετά από μία συμβολοσειρά

{Remove Spaces}
Function RmSpaces(s: String): String;
Begin
  if s <> '' Then
  begin
    while (length(s)>0) and (s[1]<=#32) do
    delete(s,1,1);
    while (length(s)>0) and (s[length(s)]<=#32) do
      delete(s,length(s),1);
 end;
 RmSpaces:=s;
end;

Αυτήν τη στιγμή επισκέπτονται τον ιστότοπό μας 33 επισκέπτες και κανένα μέλος

Ανακύκλωση Συσκευών

Με τη Free Recycle, μπορείτε να ανακυκλώσετε τις παλιές σας ηλεκτρικές και ηλεκτρονικές συσκευές, χωρίς κανένα κόστος και περιρισμό στον αριθμό των συσκευών, σε αντίθεση με τις άλλες εταιρείες ανακύκλωσης. 

http://www.free-recycle.gr/

K-Smart, IT Business Solutions

Έξυπνες λύσεις Πληροφορικής

Γενναδίου 16

18533, Πειραιάς

email: Αυτή η διεύθυνση ηλεκτρονικού ταχυδρομείου προστατεύεται από τους αυτοματισμούς αποστολέων ανεπιθύμητων μηνυμάτων. Χρειάζεται να ενεργοποιήσετε τη JavaScript για να μπορέσετε να τη δείτε.