copy , pos,delete Hakkında örnek

[argetek]

arkadaslar şimdi oncelikle benim bir projemde kullandıgım daha dogrusu baska bir programın urettigi bir txt dosyasını kullanmam gerekiyor bu txt dosyasında ortalama 150.000 satırlık bi bilgi var

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo2.Lines.LoadFromFile('c:\argesms\yusuf.txt');
edit4.text:=memo1.Lines.Strings[1];
edit3.Text:=memo1.Lines.Strings[5];
edit5.text:=memo1.Lines.Strings[4];
button6.Click;
button7.Click;

end;

procedure TForm1.Button6Click(Sender: TObject);
var
c:string;
y:string;
p:integer;
a:integer;
x:integer;
begin
//pos ile ; konumunu  buluyor
x:=152;
label7.Caption:=memo2.Lines.Strings[0];
label9.Caption:=memo2.Lines.Strings[1];
y:=label7.Caption;
p:=pos(';',y);
label1.Caption:=inttostr(p);

// ; karakterinden  itibaren saga  dogru  olan  karakterleri  alır
edit2.text:=leftstr(label7.Caption,p);
edit1.Text:=rightstr(label7.Caption,x);


end;[quote]
ben  yukarıdaki  kodlar ile  ilk  satırı  okuyor  ve  bunun  uzerinde  bazı  işlemler  yapıyorum  ama  bunu  150.000  satıra  aynı  anda  nasıl  yapar4ım bir  turlu  kafamda  kurguluyamadım  buyuk  olasılıkla  bir  dongu  kullanmamız  gerekiyor  ama  dongu  kullanımı hakkında  hic  bilgim  yok  bu  kodu  150.000 kaydı  okuyup  ornekteki  işlemi  tum satırlara  uygulkayıp  sonra  parcalayacak  şekilde  nasıl  modifiye  etmem  gerekiyor  ?

[fduman]

Kod: Tümünü seç

var
  I: Integer;
begin
  for I:= 0 to (Memo2.Lines.Count - 1) do
  begin
     Pos(';', Memo2.Lines[I]) // gibi....
  end;
end;

[argetek]

coderland ustadım cok saolasın hemen bi denicem bakalım neler olacak