Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Problem mit Leerzeile in einer TStringlist!

    Delphi
    by shmia, 21. Okt 2009
  Ich sach mal so:
  Assert(Assigned(list)) schützt vor fahrlässigem Gebrauch. Der dubbelige Programmier hat vergessen, das Objekt zu erzeugen.
  
  Assert(list is TStrings) schützt vor bösartigem Gebrauch. Der Programmierer ist ganz schlecht drauf und ruft die Procedure z.B. so auf:RemoveEmptyStrings(TStrings(Memo1));
  Also ich bin eigentlich immer nur fahrlässig; das bösartige überlass' ich den...
• Forum: Object-Pascal / Delphi-Language

  Re: Problem mit Leerzeile in einer TStringlist!

    Delphi
    by shmia, 21. Okt 2009
  Das Problem mit den Leerzeilen gibt es öfters.
  Was macht man, wenn man ein Problem öfters hat?
  Man löst es allgemeingültig:
  // lösche leere Zeilen aus StringListe
  // RESULT: Anzahl der Löschungen
  function RemoveEmptyStrings(list : TStrings):Integer;
  var
  i : Integer;
  begin
  Assert(Assigned(list));