Announcement

**Michael Koecher** · 06.10.2004, 11:19

Hallo, bediene dich einer TStringlist, lade die Textdatei. �ber eine Schleife der Stringlist kannst du die Werte in die Tabelle schreiben. Evtl muss vorher gepr�ft werden, ob die Werte schon in der Tabelle enthalten sind.

<PRE>
var
liste : TStringlist;
x : integer;
begin
liste := TStringlist.create;
liste.loadfromfile('Textfile.txt');
for x := 0 to liste.count - 1 do begin
// Ab hier Tabellenoperationen...
{ tabelle.insertrecord([liste[x],
NIL
{Anzahl der Felder mit NIL}
]);
}
end;
liste.free;
end;
</PRE>
so ungef�hr :-) Michae

**Hans-J�rgen Schmid** · 11.10.2004, 15:26

Hallo Michael, 
danke f�r Deine Hilfe, komme aber nicht klar 
mit der Nil-Anweisung. 
Mal sehen wie ich weiter komme! 
Gru� Hans-J�rgen<BR&gt

**Michael Koecher** · 11.10.2004, 19:38

Hallo Du musst bei Insertrecord die Anzahl der Felder deines Record �bergeben. evtl habe ich Dein Ansinnen auch nicht richtig verstanden. Gib doch mal ein Beispiel Deiner Textdatei. Michae

**Hans-J�rgen Schmid** · 12.10.2004, 20:57

Hallo Michael, 
Die Textdatei ist ganz einfach, 
es ist eine unbestimmte Anzahl von einer 
Zahlenreihe und die sieht als Beispiel 
so aus: 
100 
2000 
230 
3000 
100 
 
usw. 
 
Die Datenbank besitzt als Eingabe 
drei DBEDIT - Felder, in denen 
Zahlenwerte eingegeben werden 
z.B. 
in DBEdit1 100 
in DBEdit2 0 
in DBEdit3 0 
in der DBGrid erscheinen sie dann 
�ber die Anweisung: 
Table1('zusammen') := table1('XKo')+ 
';' + Table1('YKo')+ ';'; 
z.B. 
100;0;0; 
2000;0;0; 
230;0;0; 
3000;10;0; 
Das klappt manuell eingegeben wunderbar 
Nun will ich aber aus einer *.TXT Datei 
eine Einspaltige Zahlenkolonne einf�gen, 
d.h. in das DBEdit1 und nur dort hinein 
und das ist mein Problem! 
Gru� Hans-J�rgen<BR&gt

**Michael Koecher** · 13.10.2004, 06:13

Hallo Hans-J�rgen, alle Klarheiten beseitigt :-) Das obige Beispiel geht. Nur kenne ich immer noch nicht die Felder deiner Tabelle (Struktur). ich nehme mal folgendes an:
 1.Feld lfdnr - autoincrement
 2.Feld A - integer
 3.Feld B - integer
 4.Feld C - integer 
dann m�sstest Du in obigem Beispiel die ...insertrecordzeile folgendermassen schreiben: <PRE>
tabelle.insertrecord([NIL, // lfdnr
strtoint(trim(liste[x])), // Feld A
0, // Feld B
0 // Feld C
]);
</PRE>Siehe auch "appendrecord"... (Delphi Hilfe)
cu Michae

**Hans-J�rgen Schmid** · 13.10.2004, 14:08

Hallo Michael! 
Danke f�r die M�he 
 
Die Tabellen-Struktur sieht folgend aus: 
1. Nr + * 
2. XKo A 40 
3. YKo A 40 
4. ZKo A 40 
5. Notiz M 20 
 
Meinst du diese Struktur? 
 
Gru� Hans-J�rgen<BR&gt

**Michael Koecher** · 13.10.2004, 19:28

Hallo Hans-J�rgen, GENAU :-) 
dann sieht es folgendermassen aus:<PRE>
tabelle.insertrecord([NIL, // lfdnr
trim(liste[x]),//Xko
'', // YKo
'', //ZKo
''
]);
</PRE> so, jetzt sollte es gehen ;-) cu Michae

**Hans-J�rgen Schmid** · 14.10.2004, 19:34

Hallo Michael; 
Ist mir schon fast Peinlich, 
aber es funktioniert nicht. 
Hier die Procedure: 
<PRE>
Procedure InsertRecord(const Values: array of const);
Var Liste : TStringlist;
x : Integer;
begin
Liste := TStringlist.Create;
Liste.LoadFromFile('Dummy.txt');
for x := 0 to Liste.Count -1 do begin
DatSatz01.InsertRecord([NIL,
trim(Liste[x]),
'',
'',
''
]);
end;
Liste.Free;
end;
</PRE>
Es wir auch kein Fehler gemeldet!! 
Kann es sein, die Eingabe der Daten 
kann erst erfolgen, wenn �ber eine CheckBox 
der Einf�gemodus erfolgt? Vorher ist schon 
alles "gelaufen"?! 
Gru� Hans-J�rgen<BR&gt

**Michael Koecher** · 15.10.2004, 05:10

Hallo Hans-J�rgen, Braucht dir nicht peinlich sein! <PRE>"Kann es sein, die Eingabe der Daten
kann erst erfolgen, wenn �ber eine CheckBox
der Einf�gemodus erfolgt?"</PRE>Nein, da w�rde eine Fehlermeldung erscheinen. Ich kann mir im Moment auch keinen Reim drauf machen, warum es ohne Exception durchl�uft und keine Daten in der Tabelle sind?!?!?!? Ersetze doch mal "insertrecord" durch "appendrecord". Michae

**Hans-J�rgen Schmid** · 15.10.2004, 16:55

Hallo Michael; 
vielen Dank f�r deine M�he! 
Es "l�uft"! Und zwar mit Appendrecord 
Gru� Hans-J�rgen<BR&gt

**Michael Koecher** · 15.10.2004, 17:06

Hallo Hans-J�rgen Dann war deine Tabelle leer :-) cu Michae

**Hans-J�rgen Schmid** · 17.10.2004, 10:14

Hallo Michael, 
nein, die Tabelle war nicht leer! 
Ich habe es probiert,an bereits eingegebenen 
Datensatz ( mit drei Eingaben) habe ich f�nf 
neue eingef�gt. 
Ich wei�, AppendRecord soll einen neuen 
Record an die Tabelle f�gen, laut eines 
Lehrbuches, und InsertRecord einen neuen 
Datensatz an der aktuellen Satzzeigerposition 
einf�gen. 
Die ganze "Sache" ist mir nicht v�llig klar! 
Aber es funktioniert bestens, Dank deinem 
Interesse! 
Gru� Hans-J�rgen<BR&gt

Announcement

Aus Text-Datei(*.txt) Zahlenkolonne in DBGrid

Aus Text-Datei(*.txt) Zahlenkolonne in DBGrid

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment