Τρίτη, 02 Ιανουαρίου 2018 10:38

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

delphi xe logoΜια συνάρτηση σε 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;

Read 177 times Last modified on Παρασκευή, 17 Αυγούστου 2018 09:14
K-Smart

Systems Administrator and Applications Developer

Login to post comments

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

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

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

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

K-Smart, Πληροφορική

Η έξυπνη σελίδα της Πληροφορικής

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