Delphi Tips
1．TTimerとTImageをFormに貼り付けてください。 2．フォームの変数宣言で private { Private 宣言 } panelMoveX:integer; panelStr:string; を宣言してください。 3．TTimerのOnTimerイベントで下記のソースを入力して実行してください procedure TForm1.Timer1Timer(Sender: TObject); begin PanelStr := 'ABC'; //出力文字列 PanelMoveX := PanelMoveX - 1; //移動量計算 if (Image1.Canvas.TextWidth(PanelStr) + PanelMoveX < 0) then PanelMoveX := Image1.Width; with Image1.Canvas do begin Brush.Co
Delphi Acid Floor
<BODY> Delphi Acid Floor は VBから Delphiへの移行を支援するTipsや、Borland最新情報を掲載しています。 なお、このページを表示するにはフレームを表示可能なブラウザが必要です。 </BODY>
[ 780_ファイル情報の取得と日時・属性の変更等 ] - Mr.XRAY
//============================================================================= // フォーム生成時の処理 //============================================================================= procedure TForm1.FormCreate(Sender: TObject); begin OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName); end; //============================================================================= // ファイルのタイムスタンプ(更新日時)の取得 /
ファイルに書きこむ
テキストファイルに書き込む ここではMemoに書かれている文字列をC:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\Test.txtに書き込みます。 procedure TForm1.Button1Click(Sender: TObject); Var F :TextFile; FileData :String; i :Integer; begin //ファイル変数とファイルを結びつける AssignFile(F,'C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\Test.txt') ; //ファイルを新規に作成 Rewrite(F); //一行ずつファイルに書き込む For i := 0 To Memo1.lines.Count -1 Do begin FileData :=Memo1.Lines[i]; Writeln(F,FileData); end; //ファイル
ファイルを読みこむ
procedure TForm1.Button1Click(Sender: TObject); Var F :TextFile; FileData: String; begin Memo1.Clear; //ファイル変数とファイルを結びつける AssignFile(F,'C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\ファイル名.txt') ; //既存のファイルを開く Reset(F); //ファイルの最後まで一行づつ読み込む While not Eof(F) do begin Readln(F, FileData); Memo1.Lines.Add(FileData); end; //ファイルを閉じる（閉じないとデータが消える場合がある） CloseFile(F); end;
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
フォームを半透明にする (Win2000)
M&I's HOME
[ Win32 API by Object Pascal of Delphi ] - Halbow 資料館
Nichiyo Delphian, Tips & Samples for Delphi
About Delphi
ファイルからデータを読み込むには？