Question

在delphi的文本读写问题

在delphi的文本读写问题
我想把ListBOX1里面的内容保存出TXT文本文件里
ListBOX1里面的内容是:
CD001
CD002
CD003
CD008
LD12345
LD2206A
LD8654V
DVD9954A

我想保存出文本的格式是:
碟片[CD001|CD002|CD003|CD008|LD12345|LD2206A|LD8654V|DVD9954A]

再用个ComboBox1读取出当前文件夹中有多少个TXT文本文件

请教下这样的格式保存和读取怎么写
本人刚刚学不会写这个作业请大大们帮帮谢谢

Answer 1

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ListBox1.Items.CommaText :=
'"CD0 01",CD002,CD003,CD008,LD12345,LD2206A,LD8654V,DVD9954A';
End;

Procedure TForm1.BitBtn1Click(Sender: TObject); //保存
Var
S: String;
alist: TStringList;
Begin
alist := TStringList.Create;
Try
S := StringRePlace(ListBox1.Items.Text, #$D#$A, '|', [rfReplaceAll]);
Delete(S, Length(S), 1);
alist.Text := Format('[%s]', [S]);
alist.SaveToFile('D:\24hour-1.CDDATA'); //保存为特殊的文件格式，便于提取
Finally
alist.Clear;
alist.Free;
End;
End;

Procedure TForm1.BitBtn2Click(Sender: TObject); //加载文件列表
Var
SR: TSearchRec;
PH, aFile, adir: String;
Begin
ComboBox1.Items.Clear;
ComboBox1.Style := csDropDownList;

//目标文件夹
adir := 'D:\';
adir := IncludeTrailingPathDelimiter(adir);
If Not DirectoryExists(adir) Then
Begin
Exit;
End;

PH := Format('%s*.CDDATA', [adir]); //只查找特殊的文件格式
If FindFirst(PH, faAnyFile, SR) = 0 Then
Begin
Repeat
aFile := Format('%s%s', [adir, SR.Name]);
If FileExists(aFile) Then
Begin
ComboBox1.Items.Add(afile);
End;
Until
FindNext(SR) <> 0;
FindClose(SR);
End;
End;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
s: string;
aList: TStringList;
begin
for i := 0 to ListBox1.Items.Count - 1 do
begin
if i = 0 then s := '碟片[' + Listbox1.Items[i] + '|'
else if i = ListBox1.Items.Count - 1 then s := s + Listbox1.Items[i] + ']'
else s := s + Listbox1.Items[i] + '|';
end;

aList := TStringList.Create;
try
aList.Text := s;
aList.SaveToFile('c:\aaa.text');
finally
aList.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i, p: integer;
s, s1: string;
aList: TStringList;
begin
aList := TStringList.Create;
try
aList.LoadFromFile('c:\aaa.text');
if aList.Count > 0 then s := aList[0];
finally
aList.Free;
end;
ComboBox1.Clear;
p := pos('|', s);
s := copy(s, 6, Length(s) - p + 2);
while p > 0 do
begin
p := pos('|', s);
s1 := copy(s, 1, p - 1);
s := copy(s, p + 1, Length(s) - p );
if p > 0 then ComboBox1.Items.Add(s1)
else ComboBox1.Items.Add(s);
end;
end;