Comment puis-je supprimer l'espace à partir d'une StringList?

Je suis le chargement d'un fichier texte (qui contient de nombreuses lignes, certains contenant des espaces ou des tabulations) pour une StringList. Comment puis-je supprimer l'espace (à l'exclusion des retours à la ligne) de l'ensemble de la StringList?

  • Si vous les enlevez, il sera d'une grande chaîne unique du fichier texte. Ce que vous voulez faire avec cette grande chaîne
  • ah , je n'ai pas besoin de ça , il n'y a aucun moyen que la suppression des espaces de la ligne à ligne ? :S
InformationsquelleAutor NOP | 2011-02-22
  1. 17

    Voici un brut solution qui suppose que l'onglet et l'espace sont les seuls caractères blancs:

    tmp := Strings.Text;
tmp := StringReplace(tmp, #9, '', [rfReplaceAll]);
tmp := StringReplace(tmp, #32, '', [rfReplaceAll]);
Strings.Text := txt;

    Voici une version plus avancée qui permet de détecter n'importe quel espace:

    function RemoveWhiteSpace(const s: string): string;
var
  i, j: Integer;
begin
  SetLength(Result, Length(s));
  j := 0;
  for i := 1 to Length(s) do begin
    if not TCharacter.IsWhiteSpace(s[i]) then begin
      inc(j);
      Result[j] := s[i];
    end;
  end;
  SetLength(Result, j);
end;
...
Strings.Text := RemoveWhiteSpace(Strings.Text);

    Vous aurez besoin de l'un de l'Unicode des versions de Delphi, et vous aurez besoin d'utiliser le Character unité.

    Si vous utilisez une version non-Unicode de Delphes, puis vous remplacez le si avec:

    if not (s[i] in [#9,#32]) then begin
    • je suis à l'aide de delphi7 est-il une chance que je peux obtenir du travail removewhitspace fonction dans delphi 7 ?
    • mise à jour pour vous
    • +1 pour preallocating la chaîne (comme tout le monde devrait le faire toujours, mais ce n'est pas le cas). (Je vous fait confiance pour corriger les erreurs de syntaxe.)
    • Re, merci! Est-ce mieux?
    • merci monsieur il a travaillé beaucoup , mais u fait gaffe u utilisé la procédure au lieu de fucntion 🙂
    • merci, fixe, maintenant, j'ai juste écrit les infos de la zone réponse, n'est-ce pas la peine de le compiler, d'où les deux erreurs! L'allocation de la mémoire et de l'indexation est étanche à l'eau, c'est le peu j'ai été en se concentrant sur!
    • np monsieur , merci encore 🙂
    • Je hais le code qui ne SetLength(a, Length(a)+1)!
    • tout bon programmeur doit.
    • Dans Delphi XE+ recommandé d'utiliser uses System.Character var C:Char; for i := 1 to Length(s) do begin C := s[i]; if C.IsWhiteSpace then begin /// ...etc parce que IsWhiteSpace fonction est obsolète depuis la par la documentation lien

    InformationsquelleAutor David Heffernan
  2. 1

    En fonction de la façon dont beaucoup de texte, il y est vous pouvez utiliser le StringReplace() de la fonction sur l'ensemble du texte. Je suis sûr que ce n'est pas la manière la plus efficace, cependant, si le travail.

    par exemple 

    var tmpString : String;

    Memo1.LoadFromFile(Filename);    
    tmpString := StringReplace(memo1.Text, #9, '',[rfReplaceAll]);

    Puis de charger le tmpString dans la stringlist.

    InformationsquelleAutor Simon