Undgå at starte i Dokumenter (Delphi 2)

OpenDialog1.FileName:=ExtractFilePath(Application.EXEName)? Er et bud, men burde virke, hvis D2 ellers understøtter alle tingene....

Sæt nedenstående ind før du åbner din OpenDialog. Så "står den" i den folder dit program køres fra.

OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);

Hej med jer,

tester lige snowballs forslag.

mvh. jaweni

Hej!

jeres kode kunne jeg ikke få til at virke på
nogen måde, så mig måtte selv finde ud af noget.

Flg. virkede: (markeret med: ** )

procedure TForm1.hentClick(Sender: TObject);
Var
  Stk : Integer;
  s : string;    **
begin
  s := '';    **
  GetDir(0,s); { 0 = Current drive }  **
  OD1.InitialDir := s;    **
  IF OD1.Execute then begin
    AssignFile(F,OD1.filename);

    {$I-} Reset(F); {$I+}
    if IOResult = 0 then begin
      Memo1.Clear; Lin := ''; Stk := 0;
      Readln(F,Lin);
      WHILE NOT EOF(F) DO BEGIN
        Readln(F,Lin);
        Memo1.Lines.Add(Lin);
      END; { WHILE NOT...}
      CloseFile(F);
    end { if IOResult...}

  else begin
    ShowMessage('Filen: ' + Sti + ' er ødelagt/mangler.' + #13#10 +
                '        Programmet stoppes.');
    Application.Terminate;
  end; { else... }
end;


Mvh jaweni

Problemet er nok at du kører Delphi 2 - der er sikkert ikke ExtractFilePath i den. Men det vigtigste er jo at du har fået det til at virke :)

Det er muligt den funktion ikke findes en sådan en gammel Delphi ;)

Desuden, i stedet for at du selv løber filen igennem, så kan du blot bruge nedenstående for at læse en fil ind i en Memo (hvis da ellers den funktion findes i Delphi 2 ;))



Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Hej pidgeot og snowball,

pidgeot: nu har jeg kun Delphi 2 og det virker.
Vil du ikke give et svar pga. points?

snowball: ja, det var da et forsøg værd.

Tak skal I have.

jaweni

Tja, om ikke andet ved du da nu hvordan du kan gøre hvis du engang får opgraderet ;)