Hallo Leute,
Also ich habe es einfach noch nicht hingekriegt mein Problem zu lösen.
Ich habe eine datei, in der die zeilen, die mit ";" beginnen nicht geladen werden dürfen.
Jetzt nur wie ignoriere ich diese Zeilen?
Ich lade jetzt die daten in ein stringgrid, nur möchte ich ungerne meinen ganzen code umschreiben.
Nur wie mache ich das jetzt?
ich denke mit RightStr und LeftStr sollte ich einfach an das erste zeichen rankommen, aber wie sag ich dass er dann diese zeile nicht laden darf?
Naja ich denke ihr wisst schon was ich meine.
Hier mal mein code zum laden der Daten:
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
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;
hoffe ihr könnt mir eine bei einer Lösung helfen, die nicht den ganzen code verändert.
vielen dank schonmal
greez headi