bei datei laden ';' ignorieren...

[Martin K]

Hier mein Vorschlag:

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 

    //ergänzt:
    i := 0;
    While i < SL.Count do
    begin
      If SL[i][1] = ';' then SL.Delete(i)
      else Inc(i);
    end;

    SL.Delimiter :=' '; 

    SLSub.Clear; 

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

    for I := 0 to SL.Count - 1 do 
     begin
      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; 

    //SLSub.Free; 

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