delphide dosyadan veri okumak

[Ömer]

merhabalar,
javadaki i/o kütüphanesinin delphideki karşılığı nedir.

bilgisayardaki bir dosyayı alıp veri ekleyip tekrar kaydedebilecek bir form hazırlıyorum ve delphi tecrubem olmadığı için bir turlu bulamadım.

yardım ederseniz sevinirim

teşekkürler şimdiden

[zen]

Bunlar işinize yarayabilir:

Delphi Basics: Files
Pascal'da 3 tip dosya yapısı vardır

[Memik Yanık]

Dosyalar üzerinde işlem yaparken TFileStream sınıfından yararlanabilirsiniz. Dosyalar üzerinde işlem yapılırken kullanılan TFileStream sınıfı Classes adlı Unit’te tanımlı olduğu için bu Unit’in koda dahil edilmesi gerekir.

Stream sınıfının nasıl kullanıldığını anlatmak için bir konsol projesi hazırladım ve TFileStream sınıfından yararlanıp Stream tipinde bir değişken tanımladım. Ardından TFileStream sınıfının Craete()metodundan yararlanıp bir Stream nesnesi hazırlayıp text dosyasından okuma yapıp okuduğum bilgiyi ekrana yazdım.

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes;
var
Text_dosya : TFileStream;
Yol : String;
Kar : Char;
begin
Yol := 'C:\Liste.txt';
Text_dosya := TFileStream.Create(Yol, fmOpenRead);
Text_dosya.Read(Kar, 1);
Write('Okunan karakter : ' + Kar);
ReadLn;
end.

Bu şekilde düzenlenen konsol uygulaması çalıştırıldığında belirtilen dosyadaki ilk karakter okunup ekrana yazılır. Bu sırada Read() metodu tekrar kullanılırsa bu kez dosyadaki 2. karakter okunur.

TFileStream sınıfının Create() metodu 2 parametreye sahiptir. İlk parametre ile üzerinde işlem yapılacak dosya belirtilmektedir. 1. parametrede işaret edilen dosyayı açıp içeriğini okumak istediğim için 2. parametrede fmOpenRead seçeneğini kullandım.

Dosyalardan okuma işlemi FileStream sınıfının Read() metodu ile yapılmaktadır. Bu metod değişik sayı ve tipte parametre alabilmektedir. Yukarıda dosyadan okunacak bilgiyi Char tipindeki değişkene aktarmak istediğim için 2. parametre olarak Char bir değişkeni kullandım. Read() metodu geriye dosyadan okuduğu karakter sayısını göndermetedir. Ancak yukarıda verdiğim örnekte Read() metodunun geriye gönderdiği sayısal bilgiyi yakalamaya gerek duymadım.

Text dosyasının bir satırını okuyup ekrana yazmak için yukarıda verdiğim konsol uygulamasını aşağıdaki gibi düzenledim. Buradaki “13” enter tuşuna basılıp satır başı yapıldığı zaman dosyaya eklenen 2 koddan ilkidir.

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes;
var
Text_dosya : TFileStream;
Yol : String;
Kar : Char;
i : Integer;
begin
Yol := 'C:\Liste.txt';
Text_dosya := TFileStream.Create(Yol, fmOpenRead);
Write('Okunan satir : ') ;
while True do
Begin
i := Text_dosya.Read(Kar, 1);
if Ord(Kar) = 13 then
Break;
Write(Kar);
end;
ReadLn;
end.

[cemaliozan]

Delphi tecrübesi olmayan birinin Stream ile başa çıkması zor olabilir.

Uses FileCtrl ;

procedure NewTxt;
var
f: Textfile;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
ReWrite(f); {Create a new file named ek.txt}
Writeln(f, 'You have written text into a .txt file');
Closefile(f); {Closes file F}
end;

// Open existing text file and append some text
procedure OpenTxt;
var
F: Textfile;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
Append(f); {Opens the file for editing}
Writeln(f, 'You have written text into a .txt file');
Closefile(f); {Closes file F}
end;

// Open existing text file and show first line
procedure ReadTxt;
var
F: Textfile;
str: string;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
Reset(f); {Opens the file for reading}
Readln(f, str);
ShowMessage('1. line of textfile:' + str);
Closefile(f); {Closes file F}
end;

Tabi bunları bir try...finally...end bloğuna almalısın...

[Ömer]

yardımlarınız ve ilginize teşekkür ederim.
sanırım hallettim