text dosyada kayıt arama

[akgun83]

merhaba

delphi de dos uygulaması yapıp, txt dosya içindeki satırlardan veri okuyup ekrana yazmak istiyorum.

Örneğin

Kod: Tümünü seç

100085	13	11	32	42	24	23
100095	14	13	33	44	44	33
100105	12	12	41	23	32	14
100115	12	11	43	31	13	34
100125	14	13	41	42	24	14

satırlarını içeren dosya için; klavyeden 100095 girildiğinde, sadece 100095 ile başlayan satırı ekrana yazdırmak için nasıl bir search kodu yazmak gerekir ? satırları tek tek okuyup kontrol ettirebiliyorum ancak yaklaşık 24000 satırlı bir dosyada biraz uzun sürüyor bu işlem.

İyi çalışmalar

[rsimsek]

Text dosyanın satır sonlarında #10 (satır atla/ilerlet) veya #13(satır başı) karakterleri aranabilir.

Kod: Tümünü seç

...
Satir := copy(txt_Adi, pos(ArananSt, txt_Adi), pos(#13, txt_Adi) - pos(ArananSt, txt_Adi));
..

gibi bir şey olabilir. Ayrıca TString e atayıp satır satır da aratabilirsin