procedure TForm1.Button1Click(Sender: TObject);
var
f : TextFile;
i: integer;
s: string;
DateList,
TimeList,
DataList,
IngList : TStringList;
begin
DateList := TStringList.Create;
TimeList := TStringList.Create;
DataList := TStringList.Create;
IngList := TStringList.Create;
try
AssignFile(f, 'date.txt');
Reset(f);
readln(f, s);
DateList.Commatext := s;
CloseFile(f);
AssignFile(f, 'time.txt');
Reset(f);
readln(f, s);
TimeList.Commatext := s;
CloseFile(f);
AssignFile(f, 'data.txt');
Reset(f);
readln(f, s);
DataList.Commatext := s;
CloseFile(f);
AssignFile(f, 'ingredient.txt');
Reset(f);
readln(f, s);
IngList.Commatext := s;
CloseFile(f);
AssignFile (f, 'AllData.csv');
Rewrite(f);
for i:= 0 to DateList.Count-1 do begin
s:= Format('%d, %s, %s, %s, %s',
[i+1, DateList[i], TimeList[i], DataList[i], IngList[i]]);
memo1.lines.Add(s); // This is just to show. Not necessary.
writeln(f, s);
end;
Closefile(f);
finally
DateList.Free;
TimeList.Free;
DataList.Free;
IngList.Free;
end;
end;