Forum: Datenbanken
Delphi
by Bedrock,
3. Jun 2003
Habs gelöst.
Danke an alle für die Hilfe
:firejump: :dancer: :dancer2: :bounce2: :bouncing4:
Forum: Datenbanken
Delphi
by Bedrock,
3. Jun 2003
ist zeile ein string??
Readln(ein_datei, zeile);
Wenn ja
Fehlermeldung
Inkompatible Typen: 'Char' und 'String'
:?:
Forum: Datenbanken
Delphi
by Bedrock,
3. Jun 2003
ok habe bis jetzt vollgendes
function Split(InStr, SplitAt: String): TStringArray;
var
I, L: Integer;
begin
SetLength(Result, 0);
if InStr = '' then
Exit;
I := Pos(SplitAt, InStr);
Forum: Datenbanken
Delphi
by Bedrock,
2. Jun 2003
:party: :x
kriegs einfach nicht hin. HELP.
Kann ich nicht mit der Batchmove funktion denn Tabulator splitten?
Bekomm immer nur eine Saplte.
Forum: Datenbanken
Delphi
by Bedrock,
2. Jun 2003
Das sind ja schon mal gute Nachrichten.
Aber das mit der Procedur Zeilen zerlegen versteh ich leider immer noch nicht ganz.
Kanst du mir vielleicht mal ein Bsp. posten??
Forum: Datenbanken
Delphi
by Bedrock,
2. Jun 2003
:D
Danke schon mal für die Hilfe.
Also die Zeilen der Text datei sind durch Tabulator getrennt und nicht durch Leerezeichen.
Also müsste es doch einen Weg geben um die Zeilen mit dem Tabulator zu trennen. Oder nicht??
Forum: Datenbanken
Delphi
by Bedrock,
1. Jun 2003
OK also dann.
Habe follgende Text Datei mit vollgenden vortlaufenden Zeilen.
T 100 5 110 0 M1 Automatenfall 0 1 0 0 0
T 100 5 110 1 M1 Not Aus 0 1 0 0 0
T 100 5 110 2 M1 Synpol Störung 0 1 0 0 0
T 100 5 110 15 M1 - M3 Brandalarm 0 1 0 0 0
.
.
Forum: Datenbanken
Delphi
by Bedrock,
1. Jun 2003
etwa so??
procedure TForm2.Button1Click(Sender: TObject);
var d:textfile;
var i:integer;
var zeile:string;
begin
AssignFile(d, 'c:\sms\sat.txt');
Readln(d, zeile);
Table2.Append;
Forum: Datenbanken
Delphi
by Bedrock,
1. Jun 2003
zeile und Zerlegezeile bring mir eine Fehlermeldung.
Was meinst du damit.
Mein Textfile siegt so aus.
T 100 5 110 2 M1 Synpol Störung 0 0
alles dur Tab getrennt.