Compare String Funktion

[EmWieMichael]

Delphi-Quellcode:

procedure TForm1.Test;
 var I:Integer; TmpList:TStringList; S1,S2:String; LeerzeileImSinn:Boolean;
begin
  TmpList:=TStringList.Create;
  S1:=''; S2:=''; LeerzeileImSinn:=False;
  for I:=0 to Memo2.Lines.Count - 1 do
   begin
     if (Memo2.Lines[I] > '') then
      begin
        S1:=Copy(Memo2.Lines[I], 1, Pos(':', Memo2.Lines[I]));
        if LeerzeileImSinn then
         begin
           if (S1 <> S2) then
            begin
              TmpList.Add('');
              S2:=S1;
              LeerzeileImSinn:=False;
            end;
         end
        else
         S2:=S1;
        TmpList.Add(Memo2.Lines[I]);
      end
     else
      LeerzeileImSinn:=True;
   end;

  Memo2.Lines.Assign(TmpList);

  TmpList.Free;
end;