امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
خواندن text در دلفی (کمک فوری )
نویسنده پیام
-devil- آفلاین
تازه وارد

ارسال‌ها: 1
موضوع‌ها: 1
تاریخ عضویت: مهر ۱۳۹۰

تشکرها : 1
( 0 تشکر در 0 ارسال )
ارسال: #1
خواندن text در دلفی (کمک فوری )
سلام لطفآ کمکم کنید
دنباله سورس دلفی میگردم تا یه فایل text را خط به خط برام بخونه

۲۸-مهر-۱۳۹۰, ۱۰:۳۷:۰۱
ارسال‌ها
پاسخ
Mr.pRoGraMmer غایب
کاربر با تجربه
****

ارسال‌ها: 1,084
موضوع‌ها: 58
تاریخ عضویت: اسفند ۱۳۸۷

تشکرها : 2031
( 2927 تشکر در 1008 ارسال )
ارسال: #2
RE: خواندن text در دلفی (کمک فوری )
(۲۸-مهر-۱۳۹۰, ۱۰:۳۷:۰۱)-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.

(آخرین ویرایش در این ارسال: ۲۸-مهر-۱۳۹۰, ۱۳:۳۹:۰۰، توسط Mr.pRoGraMmer.)
۲۸-مهر-۱۳۹۰, ۱۳:۱۱:۳۱
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : -devil-
b.jafari آفلاین
تازه وارد

ارسال‌ها: 2
موضوع‌ها: 0
تاریخ عضویت: اردیبهشت ۱۳۹۱

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #3
RE: خواندن text در دلفی (کمک فوری )
سلام من یه پروژه شبیه سازی به زبان دلفی دارم راجع به یه خیابان دو طرفه که سرعت توش مهمه کسی میتونه کمکم کنه b_jafari1370@yahoo.com
۲۸-خرداد-۱۳۹۱, ۱۰:۰۹:۲۶
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Question [سوال] ساخت EDITOR مانند دلفی hameds606 3 574 ۱۱-خرداد-۱۳۹۸, ۱۰:۰۷:۲۳
آخرین ارسال: lord_viper
  دریافت اطلاعات از سخت افزار در دلفی m59alizadeh 6 6,210 ۰۶-آذر-۱۳۹۵, ۱۳:۰۱:۴۹
آخرین ارسال: lord_viper
Question how RightToLeft Text Hint in delphi The.Ghost 0 1,398 ۲۱-اردیبهشت-۱۳۹۴, ۱۵:۲۱:۵۷
آخرین ارسال: The.Ghost
  تبدیل کد به دلفی The.Ghost 2 2,962 ۱۶-فروردین-۱۳۹۴, ۲۲:۱۵:۰۴
آخرین ارسال: veyskarami
  ارسال ایمیل با دلفی h_mohamadi 13 8,460 ۱۴-آبان-۱۳۹۳, ۱۸:۰۰:۴۳
آخرین ارسال: babyy
  فیلم آموزش مدیریت استثنائات در دلفی بهروز عباسی 2 2,598 ۳۰-مرداد-۱۳۹۳, ۱۵:۵۳:۰۸
آخرین ارسال: veyskarami
  [سوال] ریجستری در دلفی spase 2 2,362 ۱۸-خرداد-۱۳۹۳, ۱۵:۵۶:۴۷
آخرین ارسال: veyskarami
  کامپوننت ترد در دلفی hesarkhani 2 2,992 ۰۲-اردیبهشت-۱۳۹۳, ۲۲:۰۸:۴۵
آخرین ارسال: The.Ghost
  کمک در باره کامپوننت ras hnosen 1 1,546 ۲۱-فروردین-۱۳۹۳, ۱۷:۴۱:۱۶
آخرین ارسال: lord_viper
  سورس دلفی lord_viper 46 53,577 ۰۹-دى-۱۳۹۲, ۱۹:۳۸:۳۳
آخرین ارسال: بهروز عباسی

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS