21.03.2026, 19:53
Change Language
Register
Login
You are not logged in.
Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Manwe
God
[Delphi] *.txt und automatischen code erstellen
Thursday, February 3rd 2005, 12:41am
so... da mir langweilig war... und ich mal fit genug für meine info note bleiben muss (ok, das ist nicht schwer ;D ) hab ich beschlossen, nen einfaches adressbuch zu machen. bis jetzt hab ich ne schöne oberfläche, kann die adressen aus einer txt-datei lesen und auch in einer txt-datei speichern. die entsprechende datei wird automatisch (gerade hingekriegt ;D) so gespeichert, wie ich es will/angebe.
nun sieht mein eigentliches programm folgendermaßen aus:
wenn ich nun eine datei unter dem namen TEST.txt speicher, so müsste das programm automatisch den code-teil von oben neu einfügen und entsprechend anpassen. in diesem fall müssste der automatische code so aussehen:
auf den teil mit dem button müsst ihr nicht achten, das will ich später eh noch ändern.
ich hoffe mal, dass hier einer ist, der mein problem versteht und auch eine lösung dafür kennt.
nun sieht mein eigentliches programm folgendermaßen aus:
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure TForm1.Button0Click(Sender: TObject);
var i: integer;
s: TStringList;
begin
try
s:= TStringList.Create;
s.LoadFromFile('H:\Delphi\adressbuch\adressen\angeldust.txt');
for i:=0 to 5 do
(FindComponent('Edit' + IntToStr(i)) as TEdit).Text := s[i];
finally
s.Free;
end;
end;
|
wenn ich nun eine datei unter dem namen TEST.txt speicher, so müsste das programm automatisch den code-teil von oben neu einfügen und entsprechend anpassen. in diesem fall müssste der automatische code so aussehen:
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure TForm1.Button0Click(Sender: TObject);
var i: integer;
s: TStringList;
begin
try
s:= TStringList.Create;
s.LoadFromFile('H:\Delphi\adressbuch\adressen\TEST.txt');
for i:=0 to 5 do
(FindComponent('Edit' + IntToStr(i)) as TEdit).Text := s[i];
finally
s.Free;
end;
end;
|
auf den teil mit dem button müsst ihr nicht achten, das will ich später eh noch ändern.
ich hoffe mal, dass hier einer ist, der mein problem versteht und auch eine lösung dafür kennt.
Manwe
God
Re: [Delphi] *.txt und automatischen code erstelle
Friday, February 4th 2005, 4:33pm
Quoted from "Clark"
hmmm, den Dateinamen als Paramter an die Ladefunktion übergeben?... ::
hm... hab ich das nu richtig verstenden? mein code sieht nun so aus:
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
s: TStringList;
begin
try
s:= TStringList.Create;
s.LoadFromFile(edit6.text+'\'+Button1.caption+'.txt');
for i:=0 to 5 do
(FindComponent('Edit' + IntToStr(i)) as TEdit).Text := s[i];
finally
s.Free;
end;
end;
|
erklärung: edit6 ist das feld, in dem der speicherort der adressen angegeben ist, butto1.caption ist eben die caption von button1
soweit klappt das ja auch... hm... oder... ich probier mal von den buttons wegzugehen und stattdessen nehm ich eine liste... dort sollte das hinzufügen auch einfacher sein *g
Ithen
Full Member
Re: [Delphi] *.txt und automatischen code erstelle
Saturday, February 5th 2005, 12:59am
ich verstehe jetzt nicht recht, was du möchtest.
Aber wenn ich mir deinen Code so ansehe, dann lädst du doch die ganze Zeit deine Datei. Aber möchtest du sie nicht speichern?
damit lädst du doch.
Bin mir halt nicht ganz sicher, ob ich alles richtig verstanden habe.
MfG Ithen
Aber wenn ich mir deinen Code so ansehe, dann lädst du doch die ganze Zeit deine Datei. Aber möchtest du sie nicht speichern?
|
|
Source code |
1 |
s.LoadFromFile('H:\Delphi\adressbuch\adressen\test.txt');
|
damit lädst du doch.
Bin mir halt nicht ganz sicher, ob ich alles richtig verstanden habe.
MfG Ithen
x-stars
God
Re: [Delphi] *.txt und automatischen code erstelle
Saturday, February 5th 2005, 2:42pm
Also ich sehe auch nicht, was du jetzt eigentlich wissen willst? Formulier doch mal eine direkte Frage, worin das Problem besteht.
Ansonsten: Das ganze wird übersichtlicher, wenn du zusammengehörige Schleifenteile einrückst, z.B.
Und der Stringliste würde ich einen Aussagekräftigeren Namen geben, z.B. "SList" oder so, das macht den Code insgesamt übersichtlicher (gerade wenns irgendwann mal größere Projekte werden, ich hab mir z.B. auch angewöhnt, die Namensgebung der Komponenten mit ner groen Bezeichnung und ner kleinen Beschreibung zu versehen, z.B. "BThilfe" (Hilfebutton), Mbeenden (Menu->Beenden), "LBausgabe" (Label für die Ausgabe), ebenso ein einheitliches Schema für Variablen, usw., das macht das ganze viel übersichtlicher.
wenn du jetzt noch sagst, was du wissen willst, klappts vielleicht auch mit dem Adressbuch :.
cya
x-stars
Ansonsten: Das ganze wird übersichtlicher, wenn du zusammengehörige Schleifenteile einrückst, z.B.
|
|
Source code |
1 2 3 4 5 6 7 |
begin
try
hier steht eine anweisung
finally
hier ebenso
end;
end;
|
Und der Stringliste würde ich einen Aussagekräftigeren Namen geben, z.B. "SList" oder so, das macht den Code insgesamt übersichtlicher (gerade wenns irgendwann mal größere Projekte werden, ich hab mir z.B. auch angewöhnt, die Namensgebung der Komponenten mit ner groen Bezeichnung und ner kleinen Beschreibung zu versehen, z.B. "BThilfe" (Hilfebutton), Mbeenden (Menu->Beenden), "LBausgabe" (Label für die Ausgabe), ebenso ein einheitliches Schema für Variablen, usw., das macht das ganze viel übersichtlicher.
wenn du jetzt noch sagst, was du wissen willst, klappts vielleicht auch mit dem Adressbuch :
.cya
x-stars