- 379 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/03/12(水) 10:38:54 ID:51YI0Y5o0]
- FrJE2Main.pas
procedure TFormJE2Main.SaveTextFile(PEI: PEditorInfo);
でファイル名が'無題' だったらSaveAsTextFileを呼びます。
また、名前を付けて保存でもSaveAsTextFileが呼ばれますから
function TFormJE2Main.SaveAsTextFile(PEI: PEditorInfo): Boolean;
ここで、上の'無題' だったらと同じ判断をして
SaveDialog1.FileName を PEI.Editor.Lines の１行目から取り出せばいいでしょう
