文本文件内容为
a,1
b,1
c,1两个label控件,作为某一行的两列值,并且将label1的值作为索引值
修改过程
若label1为b,label2为5,则对文本文件的b行修改,变为
a,1
b,5
c,1
添加过程
若label1为d,label2为3,则对文本文件添加一行,变为
a,1
b,5
c,1
d,3
a,1
b,1
c,1两个label控件,作为某一行的两列值,并且将label1的值作为索引值
修改过程
若label1为b,label2为5,则对文本文件的b行修改,变为
a,1
b,5
c,1
添加过程
若label1为d,label2为3,则对文本文件添加一行,变为
a,1
b,5
c,1
d,3
解决方案 »
- 哪位大师有TClientDataSet生成的CDS文件格式的资料?
- 关于CORBA的小问题,各位大哥请帮忙!!!
- 使用SQL Server2000 中 自动增加列 遇到的问题!
- 关于时间转换成数字的两个问题!
- 急!用Query进行汇总,如何返回汇总的值???
- 在線等候,請問怎樣在Delphi中定義全局變量呢?謝謝!
- 十万火急,通过DBGRID对ClientDataSet进行数据更新时的问题!!!!!
- 如何在dxdbgrid中动态创建列
- 请教一个数组与指针的问题!
- 在只有一表单form1的工程文件中,加入另一个已存在的表单form2,编译后运行时,总是先显示一下form2再显示form1,不知是什么原因。
- 在先等待 50 分--如果让程序在退出时,询问是否退出!是就退出 不是就不退出 呵呵
- 用Delphi 8写的ASP.NET应用程序能否在Apache web server上运行?散分
var
s:string[3];
i:integer;
begin
i:=0;
while i<Memo1.Lines.Count do begin //可改成TSTRINGLIST.
s:=Memo1.Lines[i];
if label1.Caption=s[1] then begin
Memo1.Lines.Insert(i,Label1.Caption+','+Label2.Caption);
Memo1.Lines.Delete(i+1);
i:=Memo1.Lines.Count;end;
inc(i);
end;
if i=Memo1.Lines.Count then
Memo1.Lines.Add(Label1.Caption+','+Label2.Caption);
end;
tl: TStrings;
i: Integer;
sTemp1, sTemp2: String;
bFound: Boolean;
begin
tl := TStringList.Create; with tl do
try
LoadFromFile('文本文件.txt');
sTemp1 := Label1.Caption;
sTemp2 := Label2.Caption; bFound := False;
for i := 0 to (Count - 1) do
if (Pos(sTemp1 + ',', Strings[i]) > 0) then //找到则修改
begin
bFound := True;
Strings[i] := sTemp1 + ',' + sTemp2;
Break;
end; if (bFound = False) then Add(sTemp1 + ',' + sTemp2); //没找到则添加
finally
tl.Free;
end;
end;
tl: TStrings;
i: Integer;
sTemp1, sTemp2: String;
bFound: Boolean;
begin
tl := TStringList.Create; with tl do
try
LoadFromFile('文本文件.txt');
sTemp1 := Label1.Caption;
sTemp2 := Label2.Caption; bFound := False;
for i := 0 to (Count - 1) do
if (Pos(sTemp1 + ',', Strings[i]) > 0) then //找到则修改
begin
bFound := True;
Strings[i] := sTemp1 + ',' + sTemp2;
Break;
end; if (bFound = False) then Add(sTemp1 + ',' + sTemp2); //没找到则添加
SaveToFile('文本文件.txt'); //保存回去
finally
tl.Free;
end;
end;
var
SStrlist,TempStrList:TStringList;
BAdd:boolean;
i:integer;
begin
SStrlist:=TStringList.Create;
TempStrList:=TStringList.Create;
try
SStrlist.LoadFromFile('F:\1.txt');
//Memo1.Lines.AddStrings(SStrlist);
BAdd:=true;
for i:=0 to SStrlist.Count-1 do
begin
TempStrList.Clear;
ExtractStrings([','],[],pchar(SStrlist.Strings[i]),TempStrList);
if TempStrList.Strings[0]=Label1.Caption then
begin
BAdd:=false;
SStrlist.Strings[i]:=Label1.Caption+','+Label2.Caption;
end;
end;
if BAdd then SStrlist.Add(Label1.Caption+','+Label2.Caption);
//Memo2.Lines.AddStrings(SStrlist);
SStrlist.SaveToFile('F:\temp.txt');
finally
SStrlist.Free;
TempStrList.Free;
end;
end;