PDA

View Full Version : خواندن یک فایل در kylix



Mahdavi
شنبه 22 آذر 1382, 14:23 عصر
با سلام
من اصلا با kylix کار نکردم
میخوام یه فایل رو باز و ÷یمایش کنم. ایا مثل delphi هستش یا نه ؟
اگه مثالی دارید ممنون میشم . :cry:

Inprise
شنبه 22 آذر 1382, 15:32 عصر
TFileStream برای کاربردهای شیءگرا یا توابع قدیمی Assign و Reset و read و rewrite برای کابردهای غیر شیء گرا ( در نسخه آبجکت پاسکال ) .

TFileStream برای کاربردهای شیء گرا و توابع استاندارد سی برای پردازش فایل ، برای کاربردهای غیر شیء گرا ( نسخه ++C )



function LoadFile(const FileName: string): string;
var
Stream: TFileStream;
begin
Stream := nil;
Result := '';
try
Stream := TFileStream.Create(FileName, fmOpenRead or
fmShareDenyWrite);
SetLength(Result, Stream.Size);
Stream.Read(Pointer(Result)^, Stream.Size);
except
Result := '';
Stream.Free;
raise;
end; // try
Stream.Free;
end;


procedure SaveFile(const FileName: string; content: string);
var
Stream: TFileStream;
begin
Stream := nil;
try
Stream := TFileStream.Create(FileName, fmCreate);
Stream.Write(Pointer(content)^, Length(content));
except
Stream.Free;
raise;
end; // try
Stream.Free;
end;

:roll:

الا برخی موارد خاص یا دسترسی مستقیم به API سیستم عامل و تکنیکهای مخصوص سیستم عامل ( مثل ADO در ویندوز یا Kernel API در لینوکس ) CLX و VCL با هم سازگارند و به عبارت صحیح تر ، در معماری گسترده ای که بورلند برای آیندهء دلفی معرفی کرده ( BDN ) وس سی ال ساب ستی از کیلیکس ( CLX ) خواهد بود .

موفق باشی

Mahdavi
شنبه 22 آذر 1382, 16:36 عصر
با سلام
ممنون