MEMO1 İÇİNDEKİ SAYILARI YÜKSELTMEK

[OZAY]

merhabalar
benim sorunum bir deney sonuc dosyası var uzantısı .tst bunu delphide memo1 içine
opendialog ile memo1.Lines.LoadFromFile(dosya);//aktar komutu ile alıyorum
bı .tst uzantılı dosyada 200463 satır ve deney sonucu var deney sonucları 463. satırdan başlıyor
ilk önce yük sonra zaman diye hep alt alta kayıt yapılmış bende bir kod yazdım memo1 içindeki 463. satırdan başlayıp
yük değerini sürekli artarak yukseltmesi için zamanın değişmemesi için 2 kere inc yaptırıyorum program yuk değerlerini
bulup değiştiriyor ama çok yavaş çalışıyor işlemciyi bayağı bi kasıyor kodları aşağıda bunu nasıl hızlandırabilirim acaba
yazdığım kodmu yanlış yoksa memo1 içindeki satır sayısı 200463 ondanmı kasıyor

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var y,i,say:integer;
Begin
y:=463 ;//yukun oldugu yer
i:=0;
say:=spinedit1.Value;//arttırılacak değer

   for i:=1 to 500 do
   if (strtofloat(memo1.Lines[y])<>0)  then
      begin
      say:=(say+1);
      memo1.Lines[y]:=' '+(floattostr(strtofloat(memo1.Lines[y])+say));
      inc(y);
      inc(y);
      end
      else
      break;
end;

memo içindeki
sayıların dizilimi şu şekilde değiştireceğim değerler 463 ten başlıyor en fazla 500 veri okuması lazım
bana yardımcı olabilirseniz sevinirim şimdiden teşekkürler

25.74 // 463. satır yük
1.700231 // zaman
43.56 // yük
2.012732 //zaman
65.83
2.387732
69.6
2.700232
75.45
2.997107
82.62
3.309607
89.06
3.606482
94.76
3.918982
100.16
4.215857
105.56
4.528357
110.82
4.825232
116.22
5.137732
121.62
5.434607
128.8
5.903357
134.35
6.200232
141.52
6.668982
147.22
6.965857
152.92
7.278357
158.62
7.575232
164.46
7.887732
171.2
8.278357
183.25
9.043982
190.73
9.418982
197.31
9.731482
203.01
9.950232
210.04
10.26273
215.88
10.49711
223.36
10.79398
231.12
11.10648
239.04
11.46586
248.73
11.79398
258.72
12.18461
267.23
12.48148
274.11
12.71586
282.76
13.02836
291.57
13.32523
300.52
13.63773
307.84
13.87211
316.94
14.18461
335.95
14.48148
339.28
14.79398
345.42
15.10648
354.08
15.40336
363.33
15.71586
372.57
16.02836
381.97
16.34086
395.65
16.55961
400.61
16.87211
408.23
17.18461
429.61
17.80961
437.97
18.26273
447.07
18.59086
456.02
18.88773
466.89
19.27836
475.7
19.57523
484.5
19.88773
493.01
20.20023
501.37
20.51273
512.69
20.98148
530.96
21.32523
553.67
21.88773
559.81
22.21586
564.91
22.52836
569.13
22.84086
569.21
23.15336
552.87
23.51273
535.2
23.85648
0 // deney burda bitiyor
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

[esistem]

Selam;
Şu şekilde deneyin. Memo, Listbox gibi bileşenler belleği yorar, onun yerine stringlist olarak kendiniz oluşturun

Kod: Tümünü seç

var
dosya:TStringList;
y,i,say:integer;
begin

y:=463 ;//yukun oldugu yer
i:=0;
say:=5;//arttırılacak değer //ben 5 yazdım denedim
dosya := TStringList.Create;
dosya.LoadFromFile('c:\dosya.txt');

   for i:=1 to 500 do
   if (strtofloat(dosya.Strings[y])<>0)  then
      begin
      say:=(say+1);
      dosya.Strings[y]:=' '+(floattostr(strtofloat(dosya.Strings[y])+say));
      inc(y);
      inc(y);
      end;

dosya.SaveToFile('c:\dosya_degisen.txt');
dosya.Free;

[OZAY]

esistem teşekkür ederim buda bi çözüm yolu olmuş bende dün oturdum memo yerine richedit kullandım daha hızlı çalıştı ama bu seferde richeditteki yazıları kayıt etmeye kalkınca
değişik değişik karakterler eklemeyebaşladı onuda forumda aratıp buldum richeditin plaintext özelliğini true yapınca düzgün çalışmaya başladı stringlistlede yapıp ikisini karşılaştırıcam
emeğine teşekkür ederim arkadaşım