speichern von texten

[Maria]

ich brauch die dringendste hilfe überhaupt...
mein informatiklehrer hat wohl was gegen frauen und ich muss jetzt über das speichern in delphi referieren...
ich kann mich leider nioch merh genau daran erinnern...
und überall wo ich ins forum schaue wird das mit memo gemacht oder so..
geht das auch ohne?

angeblich soll das ja so funktionieren:

TForm1.Button1click

var f: file of char;
c: char;
s: string;
i,l: integer;

begin
if savedialog1.execute then
begin
assignfile(f,savedialog1.Filename);
rewrite(f);
s:=edit1.text;
l:=length(s);
for i:=1 to l do
begin
c:=s[i];
write(f,c);
end;
closefile(f);
end;
end.


könnte mir das mal einer erklären???

[DeddyH]

Hallo Maria, Willkommen in der DP :dp:,

abgesehen davon, dass es umständlicher kaum noch geht, was verstehst Du denn nicht an dem Quelltext?

[smallsmoker]

Delphi-Quellcode:

  procedure SaveString(s, fileName: string);
  var
    fs: TFileStream;
  begin
    fs := TFileStream.Create(filename, fmCreate);
    fs.Write(s[1], Length(s));
    fs.Free;
  end;

Wilkommen in der DP :dp:
mfg smallsmoker

€: oh da war jemand schneller :)

[Maria]

@ deddyh

das problem is der ganze kram ab rewrite...
das zu verstehen is ja das eien aber das auch noch zu erklären was ganz anderes...

der text is übrigens nich von mir... deshalb frage ich ja...

[BullsEye]

Ggf mit ner INI File

[lbccaleb]

Hallo und Willkommen in der DP :dp: :dp:


Das ist viel zu kompliziert und umständlich wie du das gelöst hast, suche hier einfach mal nach TTextFile, das sollte dir weiterhelfen und noch dazu viel leichter zu verstehen sein!

[Maria]

INI file? klingt furchtbar...

sollte auf jeden fall so einfach wie möglich sein... es geht ja nur um das stumpfe speichern usw...

wenn ich viele sachen verwende die wir im unterricht noch nich hatten is das nich so passend

[DeddyH]

Normalerweise würde ich jetzt auf die Delphi-Hilfe verweisen, aber ausnahmsweise kommentiere ich Dir das mal:

Delphi-Quellcode:

var f: file of char;
    c: char;
    s: string;
    i,l: integer;

begin
  //Wenn der Speicherdialog bestätigt wurde
  if savedialog1.execute then
    begin
      //weise der Dateivariablen f den Dateinamen des Dialogs zu
      assignfile(f,savedialog1.Filename);
      //erstelle/überschreibe die Datei
      rewrite(f);
      //weise s den Inhalt des Edits zu
      s:=edit1.text;
      //ermittle dessen Länge und lege sie in l ab
      l:=length(s);
      //durchlaufe in einer Schleife von 1 bis l
      for i:=1 to l do      
        begin
          //weise c das Zeichen aus s an Position l zu
          c:=s[i];
          //schreibe c in die Datei
          write(f,c);
        end;
      //schließe die Datei 
      closefile(f);
    end;
end.

[Maria]

wow das klingt gut... und das funktioniert dann so ohne meckern?

[DeddyH]

Probier' s doch mal aus ;). Aber wie gesagt, das ist eine sehr umständliche Lösung und sie prüft auch keine Fehler ab.