Entwickler-Ecke
Dateizugriff - Problem Beim Laden
MaximusMR - Di 02.07.02 18:25
Titel: Problem Beim Laden
Ich habe ein kleines Programm geschreiben in dem man einen kleinen Text Speichern kann und später wieder Laden. Nur hinter dem Text der aus der Datei geladen wird sind 2 Striche .
Warum???
Und wie kann ich sie vermeiden?
Tino - Di 02.07.02 19:14
Poste doch mal den Code (Speichern und Laden). Dann können wir bestimmt besser helfen :-D
Gruß
MaximusMR - Di 02.07.02 19:43
Ihr braucht nur 2 Buttons und ein edit Feld.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm1.Button1Click(Sender: TObject);
var
LB:TStringList;
begin
LB:=TStringList.Create;
LB.Add(edit2.text);
LB.SaveToFile('Saves.txt');
LB.Free;
edit2.Text:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
var
LB:TStringList;
begin
LB:=TStringList.Create;
LB.LoadFromFile('Saves.txt');
edit2.Text:=LB.text;
end; |
Code-Tag hinzugefügt. Marc
Pit - Di 02.07.02 20:11
Tino - Mi 03.07.02 10:13
Das heißt die Button2 (Also das Laden) müsste so aussehen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.Button2Click(Sender: TObject);
var
LB:TStringList;
begin
LB:=TStringList.Create;
LB.LoadFromFile('Saves.txt');
If LB.Count > 0 Then
edit2.Text:=LB [0];
LB.Free;
end; |
Gruß
Pit - Mi 03.07.02 13:07
Tino - Mi 03.07.02 14:26
@Pit: Kurz und knapp: Verstehe Dein Posting nicht :roll:
Pit - Mi 03.07.02 14:28
Tino - Mi 03.07.02 14:32
Ach so: Du meinst den Try-Finally-Block. Na ja! Ich hab diese Anweisungen noch nie so oft benutzt. Ob ich deshalb bei Dir nicht zu den ernstzunehmenden Delphi-Programmiere zähle ist mir eigentlich gleich :-D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 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!