bei datei laden ';' ignorieren...

[Martin K]

Jo, stimmt. Das geht auch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  //sfv file öffnen
var
  i : integer;
begin

  if OpenDialog1.Execute then
   begin
    SL.LoadFromFile(OpenDialog1.FileName);      //sfv daten in stringlist speichern
    SL.Delimiter :=' ';

    SLSub.Clear;

    StringGrid1.RowCount:=SL.Count+1;    //stringgrid zeilen erstellen

    for I := 0 to SL.Count - 1 do
     begin
      if SL[I][1] <> ';' then  // <-- hier ergänzen
       begin                   // <-- hier auch ergänzen
        SLSub.DelimitedText := SL[I];

        StringGrid1.Cells[0, (1+(I))]:=SlSub[0];  //dateiname in stringgrid einfügen
        StringGrid1.Cells[2, (1+(I))]:=Uppercase(SlSub[1]);  //hash wert in stringgrid einfügen
        StringGrid1.Cells[1, (1+(I))]:='ready';   //status gleich ready
       end;                   // <-- und hier ergänzen
     end;

    //SLSub.Free;

    //sl.Free;
    Button2.Enabled:=true;
    Button4.Enabled:=false;
   end;
end;