Tekst behandlingsprogram

Hejsa ...

brug det følgende kode :

if SaveDialog1.Execute then
begin
  Memo1.Lines.SaveToFile(SaveDialog1.FileName+\'.txt\');
End;
Jens B

Det skal ikke være txt være gang  !! ´

Det skal selvfølgelig gemmes som det man vælger.

jammen så prøv der her :

procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
begin
  if not SaveDialog1.Execute then
    exit;
  s:= SaveDialog1.FileName;

  if s[1] = \'\"\' then
    Memo1.Lines.SaveToFile(s)
  else
  begin
    s:=s + ExtractFileExt(SaveDialog1.Filter);
    Memo1.Lines.SaveToFile(s);
  end;
end;


Og husk så at læse de artikler JEG har skrever :-) (Og sig noget pænt om dem)

Jens B
http://fotx.net/borrisholt

Nu får jeg afvide at jeg ikke kan oprette filen xxxxxxx.*

hvad mener du i øvrigt med dine artikler ?!

jammen så prøv at rette denne linje til

fra :
  if s[1] = \'\"\' then

til :
  if (s[1] = \'\"\') or (ExtractFileExt(SaveDialog1.Filter) = \'*.*\') then


Jens  B

Kunne ikke oprette filen filnavn.*.*\' eller sådan noget.

jeg har lige prøvet at downloade eksemplet herfra der virker det heller ik !!

http://www.pythia.dk/artikler/vis_artikel.php?id=9

danriis >> Har du tænkt på ar prøve selv ?

Jens B

Jeg er ikke helt med på hvordan det skal gemmes.
Er det noget med at du vil bruge original endenseln, hvis der er en. Ellers give nogle valgmuligheder så som txt?

For kan det ikke være noget med at sætte SaveDialog1.DefaultExt := \'txt\';
eller har jeg misforstået det

Okay, prøv det her:

Brug din TSaveDialog og sæt Filter til Txt (tryk på \"...\") (nærmere forklaring?)

I feltet DefaultExt skriver du \".\". Dette gør at den valgte extension sættes på filnavnet, og det giver mulighed for at sætte flere filtre, uden at skulle til at lave en *elvedes masse statements.

(Hvis du kune skal bruge TXT-extensionen er det jo nok at skrive txt, men...)

easysoft_studios> TAK !! Det virker nu.

Så du får alle pointene :)

Jeg får en fejl når jeg prøver:

[Error] Unit1.pas(67): Illegal character in input file: '\' ($5C)
[Error] Unit1.pas(67): Illegal character in input file: '\' ($5C)
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

Hvad betyder det??

Mvh
fun22