Hallo
Ich habe folgendes Beispiel:
Delphi-Quellcode:
for k := 0 to memo1.Lines.Count do
begin
feld := Copy(memo1.Lines.Strings[k], 2, Pos(' ', memo1.Lines.Strings[k]) - 2);
comp := FindComponent(feld);
if comp <> nil then
begin
cText := Copy(memo1.Lines.Strings[k], Pos('= "', memo1.Lines.Strings[k]) + 3, Pos('"; ', memo10.Lines.Strings[k]) - Pos('= "', memo1.Lines.Strings[k]) - 3);
TEdit(comp).Text := cText;
Damit kann ich einzelne Bereiche aus einer Textdatei in Tedit's einlesen.
Die Namen der TEdit's müssen dann auch so heissen:
edit1 = c_firma -> wird Firma angezeigt
edit2 = c_vname -> wird Vorname angezeigt
edit3 = c_nname -> wird Nachname angezeigt
usw.
So schaut die Textdatei aus:
Delphi-Quellcode:
$c_knr = "Kundenummer"; /*Kundenummer*/
$c_firma = "Firma"; /*Firma*/
$c_vname = "Vorname"; /*Vorname*/
$c_nname = "Nachname"; /*Nachname*/
$c_str = "Strasse"; /*Strasse*/
$c_hnr = "Hausnummer"; /*Hausnummer*/
$c_plz = "PLZ"; /*PLZ*/
$c_ort = "Ort"; /*Ort*/
$c_land = "Land"; /*Land*/
$c_fon = "Telefon"; /*Telefon*/
$c_fax = "Fax"; /*Fax*/
$c_email = "Email"; /*Email*/
Ich habe dann versucht fogende Textdatei anzupassen (in Edit's anzuzeigen), kriegs nich hin.
Habe wahrscheinlich grundlegendes nicht verstanden, mag mir jemand dabei helfen?
Textdatei/Ausschnitt:
Code:
<?php
define('TEXT_MAINA', 'Test1');
define('TEXT_MAINB', 'Test2');
define('TEXT_MAINC', 'Test3');
define('TEXT_MAIND', 'Test4');
if ( ($new == 'files')...
define('MAINE', 'Text');
define('MAINF', 'Text1');
define('MAING', 'Text2');
define('MAINH', 'Text3');
...
Die Edit's heissen nun
TEXT_MAINA
TEXT_MAINB
TEXT_MAINC
usw.
Gruss Mirco