Fórum Arquivo texto #196183

function SeparaPalavras(Texto: string): TStrings;
begin
  Result := TStringList.Create;
  Result.Text := Texto;
  StringReplace(Result.Text, ´,´, #1013, [rfReplaceAll]);
end;

Memo2.Text := SeparaPalavras(Memo1.Text);

Var
   sl: TStringlist;
   
  sl:= TStringlist.Create;
  try
    sl.Text := SomeStringWithLinebreaks;
    
This would dissect the string into individual lines, It can handle both DOS 
and Unix-style lineends. 

For Delphi 6 you can use the following to split a string on a delimiter:

   sl.Delimiter := someChar;
   sl.DelimitedText := someTextWithDelimiters;
   
For older Delphi versions you have to write your own routine to do that but 
that is not really *that* much work, since you do it only once. Here are a 
couple of routines you may find useful.

Unit Utils;

interface
  Uses Classes;

  {: Return the position of the first instance of ch in S, or 0 if
     ch was not found. }
  Function Scan( ch: Char; Const S: String ): Integer;

  {: Return the position of the first instance of ch in S after
     position fromPos, or 0 if ch was not found. }
  Function IScan( ch: Char; Const S: String; fromPos: Integer ): Integer;

  {: Return the position of the last instance of ch in S, or 0 if
     ch was not found. }
  Function RScan( ch: Char; Const S: String ): Integer;

  {: Return the position of the last instance of ch in S before fromPos, 
     or 0 if ch was not found. }
  Function RIScan( ch: Char; Const S: String; fromPos: Integer ): Integer;

  {: Split the passed string into substrings at the position of the
     separator character and add the substrings to the passed list.
     The list is not cleared first! }
  Procedure SplitString( Const S: String; separator: Char; 
                         substrings: TStringList );

  {: Split the passed string into substrings at the position of the
     separator string and add the substrings to the passed list.
     The list is not cleared first! }
  Procedure SplitString2( S: String; const separator: String; 
                         substrings: TStringList );

  {: Concatenate the items of the passed list into a single string,
     separating the items with the separator string. }
  Function ConcatSubstrings( const separator: String;
                              substrings: TStringList ): String;

  {: Concatenate the items of the passed list into a single string,
     separating the items with the separator string and enclosing
     each item with the quote characters. Instances of the quote
     character inside an item will be doubled. }
  Function ConcatQuotedSubstrings( separator, quote : Char; 
                              substrings: TStringList ): String;

  {: Pad a string to a given length by adding characters on the left. }
  Function PadLeft( Const S: String; toLength: Integer;
                    withChar: Char ): String;

  {: Pad a string to a given length by adding characters on the right. }
  Function PadRight( Const S: String; toLength: Integer;
                     withChar: Char ): String;

implementation

Uses SysUtils;

Function IScan( ch: Char; Const S: String; fromPos: Integer ): Integer;
  Var
    i: Integer;
  Begin
    Result := 0;
    For i := fromPos To Length(S) Do Begin
      If S[i] = ch Then Begin
        Result := i;
        Break;
      End; { If }
    End; { For }
  End; { IScan }

Function Scan( ch: Char; Const S: String): Integer;
  Begin
    Result := IScan( ch, S, 1 );
  End; { Scan }

Function RIScan( ch: Char; Const S: String; fromPos: Integer ): Integer;
  Var
    i: Integer;
  Begin
    Result := 0;
    For i := fromPos DownTo 1 Do Begin
      If S[i] = ch Then Begin
        Result := i;
        Break;
      End; { If }
    End; { For }
  End; { RIScan }

Function RScan( ch: Char; Const S: String ): Integer;
  Begin
    Result := RIScan( ch, S, Length(S) );
  End; { RScan }

Procedure SplitString( Const S: String; separator: Char; substrings: 
TStringList );
  Var
    i, n: Integer;
  Begin
    If Assigned( substrings ) and ( Length( S )>0 ) Then Begin
      i:= 1;
      Repeat 
        n := IScan( separator, S, i );
        If n = 0 Then 
          n:= Length( S )+1;
        substrings.Add( Copy( S,i,n-i ));
        i:= n+1;
      Until i>Length( S );
    End; { If }
  End; { SplitString }

Procedure SplitString2( S: String; const separator: String; 
                         substrings: TStringList );
  Var
    i: Integer;
  Begin 
    If Assigned( substrings ) and ( Length( S )>0 ) Then Begin
      Repeat 
        i:= Pos( separator, S );
        If i > 0 Then Begin 
          substrings.Add( Copy( S, 1, i-1 ));
          Delete( S, 1, i + Length( separator ) -1 );
        End { If }
        Else Begin 
          substrings.Add( S );
          Break; 
        End; { Else }
      Until Length( S ) = 0;
    End; 
  End; { SplitString2 }

Function PadLeft( Const S: String; toLength: Integer;
                  withChar: Char ): String;
  Begin { PadLeft }
    If Length(S) < toLength Then
      Result := StringOfChar( withChar, toLength - Length(S)) + S
    Else
      Result := S;
  End; { PadLeft }

Function PadRight( Const S: String; toLength: Integer; 
                   withChar: Char ): String; 
  Begin { PadRight }
    If Length(S) < toLength Then 
      Result := S + StringOfChar( withChar, toLength - Length(S))
    Else
      Result := S;
  End; { PadRight }

Function ConcatSubstrings( const separator: String;
   substrings: TStringList ): String;
  Var
    i: Integer;
  Begin
    Result := EmptyStr;
    For i := 0 To substrings.count-1 Do Begin
      If i > 0 Then
        Result:= Result + separator;
      Result:= Result + substrings[i];
    End; { For }
  End; { ConcatSubstrings }

Function ConcatQuotedSubstrings( separator, quote : Char; 
    substrings: TStringList ): String;
  Var
    i: Integer;
  Begin
    Result := EmptyStr;
    For i := 0 To substrings.count-1 Do Begin
      If i > 0 Then 
        Result:= Result + separator;
      Result:= Result + AnsiQuotedStr( substrings[i], quote );
    End; { For }
  End; { ConcatQuotedSubstrings }

end.