dosyadan okuma

[korendon1971]

İyi gunler.

Elimde bir text dosyası var.Dosyanın içinde kelimenin var olup olmadığını araştırmak istiyorum.Program kodu kısa ise yardımcı olurmusunuz?
Teşekkür ederim.

[conari]

Kod: Tümünü seç

var
  Dosya: TextFile;
  DosyaAdi, Satiroku: string;
begin
DosyaAdi := OpenDialog1.FileName ;
AssignFile(Dosya, DosyaAdi);
  {$I-}
  Reset(Dosya);
  if IOResult = 0 then // eğer hata yoksa
  while not EOF(Dosya) do // dosya sonuna kadar.
    begin
     ReadLn(Dosya, Satiroku); // bir satır oku.
     memo1.Lines.Add((Satiroku));
      end
  else  begin
   ShowMessage('Dosya açma hatası!');
   CloseFile(Dosya);
   end;
end;

[ikutluay]

Kod: Tümünü seç

var
  Dosya: TextFile;
  DosyaAdi, Satiroku: string;
begin
DosyaAdi := OpenDialog1.FileName ;
AssignFile(Dosya, DosyaAdi);
  {$I-}
  Reset(Dosya);
  if IOResult = 0 then // eğer hata yoksa
  while not EOF(Dosya) do // dosya sonuna kadar.
    begin
     ReadLn(Dosya, Satiroku); // bir satır oku.
     memo1.Lines.Add((Satiroku));
      end
  else  begin
   ShowMessage('Dosya açma hatası!');
   CloseFile(Dosya);
   end;
end;

merhaba bu kod dosyayı sadece satır satır okuyan bir kod.

Kod: Tümünü seç

procedure kelimevarmi(satir:string,aranan:string):boolean;
begin
result:=false;
if pos(satir,aranan)>0 then result:=true; 
end ;
// bu fonksiyonu yukardakiş kodun uygun bir yerinde çağırmalısınız. not: pos ile ilgili parametreleri doğru hatırlamamış olabilir. delphi yok ezberden yazdım

[korendon1971]

Yardımlarınız için çok teşekkür ederim.Çok faydalı oldu.
Şunu da sormak istiyorum izninizle memoya aktarılan dosyada ki kelimeyi Ben memo.lines.indexof('') la buluyorum.Zannedersem bu satır bazında arıyor.Yani satır tek kelimeyse işlem yapıyor.
Bir satırda çok sayıda kelime varsa bunu aratmak için hazır kod varmıdır?
Tekrar teşekkürler......

[sabanakman]

indexof tüm satırla kıyaslama yapar ve bulduğu zaman satır numarasını verir.

[true_false]

Yardımlarınız için çok teşekkür ederim.Çok faydalı oldu.
Şunu da sormak istiyorum izninizle memoya aktarılan dosyada ki kelimeyi Ben memo.lines.indexof('') la buluyorum.Zannedersem bu satır bazında arıyor.Yani satır tek kelimeyse işlem yapıyor.
Bir satırda çok sayıda kelime varsa bunu aratmak için hazır kod varmıdır?
Tekrar teşekkürler......

memoda satır bazında text alacaksan ve bir sorgulama kuracaksan

Kod: Tümünü seç

var
i.integer;
begin
for i:= 1 to memo1.lines.count-1 do
   satırparset(memo1.lines.strings[i]);

satırparset functionunu yukardaki kodlama ile birleştir.