応用ステートメント
ステートメントです。
読み取り専用と隠しファイルのフラグをオフにする。
srTemp : TSearchRec;
FileSetAttr(strFile, srTemp.Attr and (not faReadOnly) and (not faHidden) );
アイコンへドラッグ&ドロップされたファイルの一覧取得
procedure TForm1.FormCreate(Sender: TObject);
var
iIdx:integer;
stlMsg:TStringList;
begin
if paramcount >=1 then
begin
stlMsg := TStringList.Create;
stlMsg.Clear;
for iIdx:=1 to ParamCount do
stlMsg.Add(ParamStr(iIdx));
ShowMessage(stlMsg.Text);
stlMsg.Free;
end;
end;
マルチラインの文字列を一行ずつ処理
strLine:string;
iIdx:integer;
For iIdx := 0 To stlText.Count -1 Do Begin
strLine := stlText[iIdx];
End;