Mapper__________________________
Hvordan opretter man en mappe på computeren ved hjælp af ens program?
Eks: Man ønsker at gemme et dokument, i en indskrevet (i editfelt) placering! - Hvis placeringen (eller nogen af mapperne) ikke findes, skal programmet spørge om det skal lave disse nye mapper og ligge dokumentet der...
- Hvordan gør man det?
________________________________
Søgning_________________________
Hvordan søger man på computeren, efter filer...? Evt. kun med en del af filens navn indskrevet!
Hvordan får man, hvis der findes flere af samme navn, indsat disse i en listboks med medfølgende destinationer?
________________________________
Spørgsmål 1:
<pre>if not DirectoryExists(Edit1.Text) then // Hvis ikke mappen findes...
if MessageDlg('Mappen findes ikke, skal den laves?', // Spørg...
mtConfirmation, mbOKCancel) = IDYES then // Hvis der svares ja... (samme linie som over)
ForceDirectories(Edit1.Text); // Lav mapperne.</pre><pre>I Edit1 skal du skrive søgestien og i Edit2 skal du skrive filnavnet der skal søges efter.
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
if FindFirst(Edit1.Text + Edit2.Text, 0, sr) = 0 then
begin
repeat
ListBox1.Items.Add(sr.Name;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;</pre>Emil Melgaard
emil.melgaard@private.dk[Redigeret d. 07/01-03 18:37:46 af Emil]