Einzelnen Beitrag anzeigen

Benutzerbild von Kedariodakon
Kedariodakon

Registriert seit: 10. Sep 2004
Ort: Mönchengladbach
833 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Aus einem TMemo doppelte Strings zählen und dann löschen

  Alt 25. Jul 2005, 17:58
Ich hatte grad Langeweile:

Is vielleicht nicht das Optimum aber sie Tut ihren Zweck =)

Delphi-Quellcode:
Procedure CountMyMemoLines( Const Memo:   TMemo );
Var   SL:      TStringList;
      tS:      String;
      cS:      Integer;
      i:      Integer;
      act:   Boolean;
Begin
   SL         := TStringList.Create;
   SL.Text   := Memo.Lines.Text;
   Memo.Clear;
   SL.Sort;
   act         := False;
   If SL.Count   > 0 Then Begin
      While SL.Count > 0   Do Begin
         If act   Then Begin
            If SL[ SL.Count - 1 ] = tS   Then Begin
               Inc( cS );
               SL.Delete( SL.Count - 1 );
            End   Else Begin
               Memo.Lines.Append( tS + ' = ' + IntToStr( cS ) );
               act   := False;
            End;
         End Else Begin
            act   := True;
            tS   := SL[ SL.Count - 1 ];
            cS   := 1;
            SL.Delete( SL.Count - 1 );
         End;
      End;
      Memo.Lines.Append( tS + ' = ' + IntToStr( cS ) );
   End;
   FreeAndNil( SL );
End;
Bye
Christian
  Mit Zitat antworten Zitat