Forum: Programmieren allgemein
by zaphood,
27. Jan 2020
Der code ist ein wenig kleiner geworden:)
Aus
write(Datei, Artikelnummer, ';');
write(Datei, '10', ';');
write(Datei, Kapazitaet, ';');
write(Datei, '1', ';');
write(Datei, '1', ';');
write(Datei, '', ';');
write(Datei, Auftragsnummer, ';');
Forum: Programmieren allgemein
by zaphood,
23. Jan 2020
Doch ich habe mir das Try..Finally angelesen nur wann ich es einsetzen kann/muss ist noch nicht ganz klar.
Bis jetzt habe ich durch Euch gelernt das es bei:
1. Stinglist
2. Dateioperationen
angewendet wird.
@himitsu: ok und ich dachte mein Thema wird hier bald gelöscht:-D
Forum: Programmieren allgemein
by zaphood,
23. Jan 2020
Danke für die Delphi Tips mit TFile.WriteAllText und TFile.WriteAllLines. Das ist natürlich sehr übersichtlich im code und mal gar nicht fehleranfällig. :-) Für Lazarus habe ich das noch nicht gefunden.
Die Delphi 10.3 habe ich auch hier und kann das testen. Weil ein Lazarus begeisteter Kollege mit Linux mitprogrammiert bin ich erst einmal dort gelandet.
Die try/finally Mechanismen habe ich...
Forum: Programmieren allgemein
by zaphood,
22. Jan 2020
Das mit der dritten Stinglist war Quatsch von mir, da ja aus der zweiten indexfähigen Stinglist die Textdatei gebaut wird. Vielen Dank nochmal, es klappt prima.:-D
Das Tool soll eine Schnittstelle zwischen einem ERP und CAQ System realisieren. Wenn ein CNC Bediener einen neuen Auftrag beginnt wird ein Barcode gescannt um dann diese SPC Datei mit Infos über Auftragsnummer, Artikelnummer usw....
Forum: Programmieren allgemein
by zaphood,
22. Jan 2020
Danke Klaus das sieht sehr gut aus und wird heute Abend eingebaut. :-)
Es wird dann noch eine dritte Stringlist gebaut.
1.SL zum laden der txt Datei
2.SL zum Erstellen der Index Möglichkeit
3.SL zum Erstellen der richtigen Reihenfolge und späteren speichern als txt Datei
Schöne Grüße
Forum: Programmieren allgemein
by zaphood,
22. Jan 2020
@einbeliebigername:
bei Writeln('vSl.Count: '+ vSl.Count.ToString) steigt mein Lazarus aus mit einem Fehler.
@Klaus01:
Ja genau ich möchte gerne mit den einzelnen Zeilen arbeiten(z.B. Messstation := sl.Strings)
Damit ich die mit if abfragen kann und sehr leicht wieder zusammensetzen kann wie ich den String benötige.
Leider komme ich mit Deinem Tipp mit der zweiten Stringlist nicht weiter....
Forum: Programmieren allgemein
by zaphood,
21. Jan 2020
Das Problem ist gelöst, es wird alles in einer Zeile geschrieben und ohne Steuerzeichen.
procedure TForm1.Button1Click(Sender: TObject);
var
sl : tstringlist;
s0, s1, s2, s3, s4, s5 : String;
Datei : TextFile;
Filename : String;