Moin Moin,
ich habe im moment einen kleinen Hänger und komme da nicht weiter,
ich lese aus einer textdatei einen
csv-text aus mit diesem code
Delphi-Quellcode:
Screen.Cursor := crHourGlass;
csv := TStringList.Create;
csv.LoadFromFile('
artikel_shop_' + StringGrid1.Cells[2,stringgrid1.row] + '
.txt');
StringGrid2.Rowcount :=
csv.Count;
for ccc2 :=
csv.Count - 1
downto 1
do
begin
AnzTokens := Explode(A, '
;',
csv.Strings[ccc2]);
for i := 0
to AnzTokens -1
do
begin
ccc := ccc+1;
if ccc < 2
then begin
StringGrid2.Cells[ccc, ccc2] := A[i];
end;
if ccc = 21
then begin
ccc := -1;
end;
end;
end;
Screen.Cursor := crDefault;
aus und speicher diesen im StringGrid2
Explode zerlegt hierbei die ; getrennten text in seine bestandteile
das ganze funktioniert auch, allerdings ist mein problem dabei die zeit bis dies alles eingelesen ist (davon allerdings nur der artikelname und die artikelID) und auch die programmlast von 100% über ca 1 Minute bei ca 1800 Zeilen und einer dateigröße von ca 2,3 MB und das möchte ich vermeiden
wenn ich alles ins Grid schreibe dann hört das programm gar nicht mehr auf mit der systemlast und hängt bis ich es abschieße
habt ihr da ideen wie ich das besser lösen kann
ach ja D5 habe ich