۲۸-مهر-۱۳۹۰, ۱۰:۳۷:۰۱
۲۸-مهر-۱۳۹۰, ۱۳:۱۱:۳۱
(۲۸-مهر-۱۳۹۰, ۱۰:۳۷:۰۱)-devil- نوشته است: [ -> ]سلام لطفآ کمکم کنید
دنباله سورس دلفی میگردم تا یه فایل text را خط به خط برام بخونه
این یه یونیت هست برای خواندن و نوشتن در فایل text :-)
کد:
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
unit Unit1;
interface
uses
// The System unit does not need to be defined
SysUtils,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);
var
myFile : TextFile;
letter : char;
text : string;
begin
// Try to open the Test.txt file for writing to
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Write lines of text to the file
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'To you');
// Close the file
CloseFile(myFile);
// Reopen the file for reading only
FileMode := fmOpenRead;
Reset(myFile);
// Display the file contents
while not Eof(myFile) do
begin
// Proces one line at a time
ShowMessage('Start of a new line :');
while not Eoln(myFile) do
begin
Read(myFile, letter); // Read and display one letter at a time
ShowMessage(letter);
end;
ReadLn(myFile, text);
end;
// Close the file for the last time
CloseFile(myFile);
end;
end.۲۸-خرداد-۱۳۹۱, ۱۰:۰۹:۲۶
سلام من یه پروژه شبیه سازی به زبان دلفی دارم راجع به یه خیابان دو طرفه که سرعت توش مهمه کسی میتونه کمکم کنه b_jafari1370@yahoo.com