Hallöle!
ich hab ja auch schon eine möglichkeit gefunden! doch, wenn man in der zu sortierenden spalte in einer zelle kein datum eingegeben hat, bricht er das programm ab und sagt " '' ist kein gültiges Datum"
hier ist erst mal der code:
Delphi-Quellcode:
procedure TFormHaupt.Geburtstag1Click(Sender: TObject);
var i:Integer;
tmpDatum: TDate;
tmpString: String;
j,m,t: Word;
begin
for I := 1 to (Stringgrid1.RowCount-1) do begin
if StringGrid1.Cells[8,i] = '' then break;
tmpDatum := StrToDate(StringGrid1.Cells[8,i]);
tmpString := FormatDateTime('YYYYMMdd',tmpDatum);
Listbox1.Items.Add(tmpString);
end;
begin
{Sortiere die Liste}
for I := 1 to (Stringgrid1.RowCount) do StringGrid1.Cells[8,i] := '';
Listbox1.sorted := true;
{Zurückschreiben der Werte in das Stringgrid}
for I := 1 to (Listbox1.Items.Count) do begin
j := StrToInt(copy(Listbox1.Items[i-1],1,4));
m := StrToInt(copy(Listbox1.Items[i-1],5,2));
t := StrToInt(copy(Listbox1.Items[i-1],7,2));
tmpDatum := Encodedate(j,m,t);
StringGrid1.Cells[8,i] := DateToStr(tmpDatum);
end;
end;
wie sage ich, dass er die leeren felder "nicht beachteb" soll?
Güße, dopeline
PS:
Hier habe ich das mit dem Sortieren her