programm friert ein, progress bar, leerzeichen ignorieren...

[Headi]

hmmm... ich krieg das einfach nicht hin,

also zum ersten Problem:

Ich habe mir die tipps nochmals angeschaut, die du mir gegeben hast.
Ich habe es jetzt geschafft, jedes wort anzusprechen, aber irgendeine gute funktion konnte ich nicht basteln.
Ich möchte ja nicht den ganzen code den ich schon habe wieder umschreiben.

bis jetzt sieht dieser code so aus:

Delphi-Quellcode:

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

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

    SLSub := TStringList.Create;
    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))]:=SlSub[1];  //hash wert in stringgrid einfügen
      StringGrid1.Cells[1, (1+(I))]:='ready';   //status gleich ready
     end;
   end;
end;

dann zum zweiten Problem:

Ja es sind zeilenkommentare.
Mit dem pos bin ich irgendwie auch nicht weitergekommen,
irgendwie habe ich immer probleme mit den verschiedenen Formaten, also Strings, string, integer...

drittes Problem:

Also ich glaube, das ist ja sogar normal dass ein Programm bei längeren berechnungen einfriert,
aber ich glaube das kann man doch mit einem thread oder so umgehen?! Nur habe ich leider keine Ahnung davon.

viertes Problem:

Also das mit dem Fortschrittbalken krieg ich glaub nicht hin, da ich erstens zu wenig ahnung davon habe, und zweitens
habe ich durch die componente die mir das ganze berechnet irgendwie zu wenig informationen.
Ich werde dort jetzt einfach einen Fortschritsbalken anzeigen, der hin und her fahrt.


vielen dank schonmal,
Ich hoffe ihr könnt mir das noch ein bisschen genauer erklären

mfg headi