Hmm... ich hänge gerade mit meinem Programm. Ich poste das einfach mal hierrein, da es eigentlich noch hier reingehört. Sollte das nicht mehr der Fall sein, kurze Nachricht an mich und ich Poste es in einen neuen Thread.
Also, die Aufgabe meines Programms müsste ja mittlerweile klar sein.
Folgendes Ausgangsmaterial nochmal zur Veranschauung
"Meßprotokoll AD-USB 4"
"Seriennummer 4"
"Beginn 10.11.2003 13:45:34"
" "
"Nr;Datum Uhrzeit;AI0;AI1;AI2;AI3;AI4;AI5;AI6;AI7;
DI0;DI1;DI2;DI3;DI4;DI5;DI6;DI7;"
"1;10.11.2003 13:45:35;-5,0719;-1,6563;-1,0885;-0,2155;-0,8426;-0,0774;-0,2419;0,0205;
11111111;"
Diese digitalen Eingänge (DI1-DI7) werden in einem Feld angezeigt. Diese muss ich auflösen in jeweils eine Zeile.
1
1
1
.
.
Da hier nur jeweils 1 oder 0 kommen kann, müsste das doch zu machen sein, oder? Nur leider sind meine Kenntnisse noch nicht groß genug um das hinzubekommen. Evtl. wäre auch schon nen Tipp für nen Befehl super. Finde nämlich irgenwie gar nix.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Clear;
memo1.Lines.LoadFromFile('werte\text.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Text:=StringReplace(Memo1.Text,';',#13#10,[rfReplaceAll,rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo1.Text,'"','',[rfReplaceAll,rfIgnoreCase]);
Label1.Caption:=Memo2.Lines.Strings[0];
Label2.Caption:=Memo2.Lines.Strings[1];
Label3.Caption:=Memo2.Lines.Strings[2];
zei:=0;
i:=4;
while zei<Tabelle1.RowCount do begin
sp:=0;
while sp<tabelle1.ColCount do begin
Tabelle1.Cells[sp,zei] := Memo2.Lines.Strings[i];
i:=i+1;
sp := sp+1;
end;
i := i+1;
zei := zei+1;
end;
end;
Das ist zwar kein soooo schöner Quelltext, aber um zu verdeutlichen wie es derzeit bei mir läuft.