HASTER gem en tekst file. HASTER

if savedialog.execute then
  begin
memo1.lines.savetofile(savedialog.filename+'.txt');

nope for hvis jeg vælger a4 eller a5 i filtype skal den gemme den som
test.a4 eller test.a5 osv.

Heino

Jeg sidder ikke med Delphi her, men jeg kan fortælle dig en god del af svaret.
I savedialog komponentet kan man få fat i hvad brugeren har valgt som extension (altså .a4 eller .a5, etc).
Så gør du:
if savedialog.execute then
begin
  case savedialog.extension{Du skal nok bruge noget andet end .extension, men prøv at kigge på det} of
    a4: memo1.lines.savetofile(savedialog.filename+'.a4');
    a5: memo1.lines.savetofile(savedialog.filename+'.a5');
    a6: memo1.lines.savetofile(savedialog.filename+'.a6');
    ax: memo1.lines.savetofile(savedialog.filename+'.ax');
  end;
end;

Det skulle hjælpe. Hvis du ikke kan finde det rigtige kald (her kaldet .extension) så skriv igen, så finder jeg lige den anden maskine frem og kigger på det).

/FreeAll
end;

Kommer lige til at tænke på at "case" ikke viker med strings. Du skal nok gøre sådan istedet:
if savedialog.execute then
begin
  if savedialog.extension = '.a4' then memo1.lines.savetofile(savedialog.filename+'.a4')
  else if savedialog.extension = '.a5' then memo1.lines.savetofile(savedialog.filename+'.a5')
  else if savedialog.extension = '.a6' then memo1.lines.savetofile(savedialog.filename+'.a6')
  else if savedialog.extension = '.a7' then memo1.lines.savetofile(savedialog.filename+'.a7');
end;

/FreeAll
end.

den hedder ikke .extension og jeg syntes ikke jeg kan finde den.

burte du ikke også bare kunne bruge 'test' + savedialog.?

SaveDialog er underlig...

Nedenstående eksempel skulle kunne hjælpe dig på vej. Grunden til 'if ExtractFileExt'... er at brugeren måske vælger eller indtaster en fil med en extension, hvorved der ikke skal tilføjes en.

procedure TForm1.Button1Click(Sender: TObject);
var
  fn : string;
begin
  with SaveDialog1 do
  begin
    FileName := '';
    if Execute then
      begin
        fn := FileName;
        if ExtractFileExt(FileName) = '' then
          case FilterIndex of
            1 : fn := fn + '.a1';
            2 : fn := fn + '.a2';
            3 : fn := fn + '.a3';
          end;
        Memo1.Lines.SaveToFile(fn);
    end;
  end;
end;

OpenDialog.DefaultExt
Kig på den, Filter og FilterIndex... :)

Det er fordi at brugeren selv skal indtaste fil-navn.

Men du kan gøre således:

if savedialog1.execute then
begin
  memo1.lines.savetofile(savedialog1.filename + savedialog1.extension);
end;

software geek> Der er ingen Extention property! Delphi 5 prof...

DefExt bliver tilføjet hvis man indtaster et filnavn uden extention - men problemet er at man tilsyneladende ikke kan ændre den mens Save dialogen er aktiv. Jeg har experimenteret med en event handler på OnTypeChange, men den var tilsyneladende fløjtende ligeglad