Delphi中的数据以.txt形势保存到局域网指定路径

1. 先将要保存的内容保存到本机的ZMZ.txt下.
2. 在192.168.2.13 的D:\ZPLX 文件夹共享. 可以建立一个帐号, 设置为可写的权限.
3. 先在本机测试一下是否可以连接 .13 电脑的共享文件夹,并且确认是否可以写文件.
4. 这样就可以在网络连接状况是Ok下, 就像操作本机目录一样使用那个共享文件夹.当然也可以检查 ZMZ.txt 这个文件是否存在等等操作.

假设当你点击button1，执行你说的操作。前提是你对'\\192.168.2.13\ZPLX\‘文件夹有可写权限。
procedure TForm1.Button1Click(Sender: TObject);
var
Str, FileName: string;
i: Integer;
TxtFile: TextFile;
begin
Str := edit1.text + ' ' + edit2.text + ' ' + edit3.text;
FileName := '\\192.168.2.13\ZPLX\ZMZ.txt';
try
// 文本文件赋值
AssignFile(TxtFile, FileName);
// 如果文件不存在,则新建文件;如果文件存在,则删除后重建文件
Rewrite(TxtFile);
// 写入字符串
Writeln(TxtFile, Str); //实现你所说的“算法1，算法2”
// 清空已打开文件的缓存
Flush(TxtFile);
// 关闭文件
CloseFile(TxtFile);
except
on e: Exception do
Application.HandleException(nil);
end; // try/except
if FileExists( FileName ) then //测试文件是否存在，满足你的 算法3
ShowMessage('已成功导入!');
//打开刚才保存的文件
WinExec(PAnsiChar('notepad.exe ' + FileName), SW_SHOWNORMAL);
end;

动态的话，更简单了：
FileName := '\\192.168.2.13\ZPLX\ZMZ.txt';

这句改为：
FileName := '\\192.168.2.13\ZPLX\' + edit1.text + '.txt';

不是什么高手，说下思路。
前提是 192.168.2.13或者开通ftp或者http协议，再或者就是共享D:\ZPLX这个文件夹
手动可以访问后，实现就不是难的了。然后用delphi的相应组件操作（写入、保存、查询等操作），最后就是报警（可能用delphi播放mp3）。
goease答案给的够详细了。

var
i: Integer;
sLst: TStringList;
bSuccess :Boolean;
begin
//---初始化StringList
sLst := TStringList.Create;
//---获取数据
for i := 0 to ComponentCount - 1 do
begin
if (Components[i].ClassType = TEdit) then
begin
sLst.Add((Components[i] as TEdit).Text);
end;
end;
//---保存数据
sLst.SaveToFile('\\192.168.2.13\ZPLX\ZMZ.txt');
//---检查是否成功
bSuccess := FileExists('\\192.168.2.13\ZPLX\ZMZ.txt');
//---释放StringList
if Assigned(sLst) then
sLst.Free;
end;