Registriert seit: 20. Okt 2005
919 Beiträge
Turbo Delphi für Win32
|
Re: bei datei laden ';' ignorieren...
5. Jan 2006, 15:22
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;
Mit den Menschen ist es wie mit Computern -
es gibt Nullen und Einsen.
|
|
Zitat
|