Daten einbinden

ByStones · Beiträge: 92 Erhaltene Danke: 1 Windows XP Delphi 2005

HI,
wie binde ich den inhalt aus einer *.txt oder *.log in delphi ein ??? Der eingebundene Text soll wie Quelltext behandelt.

Z.B.: Ich starte das Programm, der Text wird eingebunden ohne dass der User es merkt. Ich klicke auf Button1 und der eingebundene Quelltext wird ausgeführt.

Es wäre nett wenn jemand (falls dieses Problem lösbar ist) ein Beispiel-Programm erstellt.

MFG ByStones

SandTarnFarbe · Beiträge: 26 Win XP, Win 2003 Server D7 Pers

Wenn ich dein Problem richtig verstehe, willst du nen eigenen Compiler basteln?

ByStones · Beiträge: 92 Erhaltene Danke: 1 Windows XP Delphi 2005

SandTarnFarbe hat folgendes geschrieben:

Wenn ich dein Problem richtig verstehe, willst du nen eigenen Compiler basteln?

Nein, eigentlich nicht.
Ich möchte für alles was der PC macht eine Datei anlegen, die er dann einbindet. Das erleichtert das Updaten... :lol:

raziel · Verfasst: So 27.03.05 13:30

Also irgendwie versteh ich nicht so recht, was Du machen willst.
Updaten oder doch kompilieren/interpretieren?

_________________
JSXGraph

SandTarnFarbe · Beiträge: 26 Win XP, Win 2003 Server D7 Pers

Also für mich hört es sich nach wie vor für nen Compiler / Interpreter an, denke die Updatefunktion die da drin besteht soll so aussehen: Neue txt-Datei an Kunden geben und jeweils den geändert Befehl ausführen, oder?

Bsp: Datei-Version für 2004 - MwSt = 16%
Bsp: Datei-Version für 2014 - MwSt = 56%

Nur da es sich ja um Quelltext handelt so da dann wohl sowas drin stehen:

markieren

Quelltext

1:
2:
3:
4:

//2004
MwSt := Nettobetrag * 0.16;
//2014
MwSt := Nettobetrag * 0.56;

Kommen wir der Sache näher?

DarkHunter · Beiträge: 477 Win XP D3 Prof, D2005 PE

Weißt du generell wie du Textdateien einließt in Delphi?
wenn ja kannst du das folgende überspringen und unten weiterlesen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function read_txt(path,name:string):tstringlist;
var list:tstringlist;
begin
  list := tstringlist.create;
  list.loadfromfile(path+name+'.txt');
  result := list;
end;

Damit öffnest du die datei
über

markieren

Delphi-Quelltext

1:	s := list.strings[x];

kannst du dann den inhalt der einzelnen zeilen abfragen.
(s ist der string in dem das ganze gespeichert wird, x die zeile !ACHTUNG die zeilenzählung fängt mit 0 an! )

So nun zu deiner frage:
Wenn du die text datei zb so aufgebaut hast:

markieren

Quelltext

1:
2:

{Mehrwertsteuer 2004}
16

dann nimmst du folgenden Code im Programm

markieren

Delphi-Quelltext

1:	mvst := nettobetrag / 100 * strtotint(list.strings[1]);

dann musst du nur die text in der entsprechenden Zeile abändern

Ich weiß ist nicht ganz genau das was du wolltest, aber kommt dem nahe

ByStones · Beiträge: 92 Erhaltene Danke: 1 Windows XP Delphi 2005

Das ist schon richtig, aber ich will, dass der inhalt wie Quelltext behandelt wird.

In der *.txt Datei:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if Edit1.Text = 'Test' then
begin
showmessage ('Richtig');
end
else
showmessage ('Falsch');

Im Quelltext der Delphi-EXE soll es nach der einbindung so aussehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if Edit1.Text = 'Test' then
begin
showmessage ('Richtig');
end
else
showmessage ('Falsch');

LCS · Verfasst: So 27.03.05 14:42

Hi
kurze und bündige Antwort: Geht nicht.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

uall@ogc · Verfasst: So 27.03.05 14:44

du müsstest as in dll auslagern die kannste dann einfach weitergeben als plugins bentuzen oder immer eine ersetzen mit der neuen version

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

ByStones · Beiträge: 92 Erhaltene Danke: 1 Windows XP Delphi 2005

LCS hat folgendes geschrieben:

Hi
kurze und bündige Antwort: Geht nicht.

Gruss Lothar

Aber andere Programme können das auch !!!!!!!!!!!!

LCS · Verfasst: So 27.03.05 14:47

Aber nicht so wie du das willst. Und nicht ohne riesen Aufwand.

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

uall@ogc · Verfasst: So 27.03.05 14:50

andere programme haben nur eine script sprache d.h.
die lesen selbst den inhalt aus und bearbeiten den weiter

also musst dann selbst schauen wenn da nen IF steht musst du das und das machen wenn da nen while steht jenes etc.

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

DarkHunter · Beiträge: 477 Win XP D3 Prof, D2005 PE

Wenn du den neuen quellcode in die txt datei schreiben willst, dann musst du dir einen Interpreter schreiben, ich weiß aber nicht wie das geht

Das Problem an der Sache ist nämlich das du strings nicht als Code bezeichnen kannst. (Zum glück, sonst könnte ich über bestimmte eingaben ganze Programmteile hinzufügen, ausnutzen... (siehe zb SQL-Injection)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme