Entwickler-Ecke

Dateizugriff - edit speichern


Andreas L. - Sa 09.08.03 15:39
Titel: edit speichern
Hi,
gibts eine einfachere Möglichkeit ein edit zu speichern als diese:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F,'C:\Edit.txt');
  {$I-}
    ReWrite(F);
  {$I+}
  try
    if IOResult=0 then
      WriteLn(F, Edit1.Text);
  finally
    CloseFile(F);
  end;
end;


Greetz


TimonWorld - Sa 09.08.03 16:55
Titel: Versuch es doch mit nem Memo *zusätzlich*
Mit Memo kein Problem!

:!: Um zu speichern:

Delphi-Quelltext 
1:
2:
3:
4:
5:
 
begin
Memo1.Clear; //Falls Memo1 noch Text enthält
Memo1.Lines.Add(edit1.text);
Memo1.lines.SaveToFile('C:\Text aus Edit1.txt');
end;


:D Willst du auch noch eine Datei ins Edit laden?


Delphi-Quelltext 
1:
2:
3:
4:
 
begin
Memo1.Lines.LoadFormFile('C:\Text aus Edit1.txt');
Edit1.Text:=Memo1.Lines.GetText;
end;


Bin zwar erst 13 kenn mich trotzdem prima aus!


Andreas L. - Sa 09.08.03 18:13
Hi,
das wäre zwar auch eine Möglichkeit, aber etwas viel auffand. Denn ich möchte 30 edits in 30 dateien speichern. udn auch wieder laden. Trotzdem danke für deine Antwort.

[quote:4187d5fdcf="
TimonWorld"]Bin zwar erst 13 kenn mich trotzdem prima aus![/quote:4187d5fdcf]

Das glaube ich gerne, Ich bin 14 :-)

Greetz


majolo - Sa 09.08.03 23:49
Ich hoffe ich habs richtig verstanden und komme nicht mit einer ganz blöden lösung. Aber warum setzt du das ganze nicht in eine for-Schleife?? :lol:


Delete - So 10.08.03 01:11
Wieso eien for-Schleife für eine zeile?

@onlinehome: Ist doch in Ordnung deien Lösung.


Andreas L. - So 10.08.03 11:13
Luckie hat folgendes geschrieben:
Wieso eien for-Schleife für eine zeile?

@onlinehome: Ist doch in Ordnung deien Lösung.


Ja, aber es ist viel Code und ich möchte nicht 30 mal nach einander den Code schreiben.


Delete - So 10.08.03 11:33
onlinehome hat folgendes geschrieben:

Ja, aber es ist viel Code und ich möchte nicht 30 mal nach einander den Code schreiben.

Schon mal was von Funktionen oder Prozeduren gehört? :shock:


Andreas L. - So 10.08.03 13:02
Luckie hat folgendes geschrieben:
onlinehome hat folgendes geschrieben:

Ja, aber es ist viel Code und ich möchte nicht 30 mal nach einander den Code schreiben.

Schon mal was von Funktionen oder Prozeduren gehört? :shock:


???? Meinst du


Delphi-Quelltext 
1:
2:
3:
4:
 
function blabla....
begin
....
end;


Delete - So 10.08.03 13:05
Wenn du keinen Rückgabewert brauchst würde ich eine Prozedur nehmen. Der üergibst du den Dateinamen und den Text.


Andreas L. - So 10.08.03 13:12
Und wie könnte das aussehen? Bitte komplette Source, thx.

Greetz


Delete - So 10.08.03 13:35
Wie komplett?

Delphi-Quelltext 
1:
2:
3:
4:
 
procedure SaveEditToFile(Filename, EdtText: String);
begin
  { hier dein Code aus der ButtonClick Prozedur }
end;


Delphi-Quelltext 
1:
2:
3:
4:
 
procedure TForm1.Button1Click(Sender: TObject); 
begin
  SaveEditToFile('c:\test.txt', Edit1.Text);
end;


Andreas L. - So 10.08.03 14:57

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
procedure SaveEditToFile(Filename, EdtText: String);
var
  F: TextFile;
begin
  AssignFile(F,'C:\Edit.txt');
  {$I-}
    ReWrite(F);
  {$I+}
  try
    if IOResult=0 then
      WriteLn(F, Edit1.Text);
  finally
    CloseFile(F);
  end;
end;


Delphi-Quelltext 
1:
2:
3:
4:
 
procedure TForm1.Button1Click(Sender: TObject); 
begin
  SaveEditToFile('c:\test.txt', Edit1.Text);
end;


Aber da is ja dann im oberen schon der Dateiname bestimmt. Wie muss ich das ändern?


Delete - So 10.08.03 15:01
Was glaubst du wohl, wozu die Parameter meiner Prozedur gut sind? :shock: Eventuell, um sie in der Prozedur zu benutzen? :roll:


Andreas L. - So 10.08.03 15:31
Jetzt richtig?


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
procedure SaveEditToFile(Filename, EdtText: String);
var
  F: TextFile;
begin
  AssignFile(F, Filename);
  {$I-}
    ReWrite(F);
  {$I+}
  try
    if IOResult=0 then
      WriteLn(F, EdtText);
  finally
    CloseFile(F);
  end;
end;


Delphi-Quelltext 
1:
2:
3:
4:
 
procedure TForm1.Button1Click(Sender: TObject); 
begin
  SaveEditToFile('c:\test.txt', Edit1.Text);
end;


Delete - So 10.08.03 15:33
Wie wäre es mit probieren?


Andreas L. - So 10.08.03 15:38
Es geht, DANKE.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!