Delphi-PRAXiS - Delphi Jede 2. Zeile löschen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Jede 2. Zeile löschen (https://www.delphipraxis.net/39637-jede-2-zeile-loeschen.html)

Masterof

5. Feb 2005 16:22

Jede 2. Zeile löschen

Hallo!!

Ich habe ein Programm um Daten aus einer Textdatei zu filtern. Nachdem Ich die Daten gefiltert habe, ist jede 2. Zeile leer, bzw es steht nicht sinnvolles drin. Wie kann ich jede 2. Zeile im Stringgrid löschen?

MfG Master

Nikolas

5. Feb 2005 16:55

Re: Jede 2. Zeile löschen

Du weisst den leeren Zeilen den nächsten Wert zu:

Inhalt[n] := Inhalt[2*n-1]

Code:

			Aus

1 2 3 4 5 6 7 8 9 10

wird

1 3 5 7 9 11 13 15 17 19

Masterof

5. Feb 2005 17:10

Re: Jede 2. Zeile löschen

danke, es hat funktioniert.

Master

Alle Zeitangaben in WEZ +1. Es ist jetzt 06:45 Uhr.