Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
5. Okt 2011
Ich habe das einfach mal so geschrieben, wie man das auch in der Realität machen würde:
procedure VerladeFaesser( const VerladeDatei, ContainerDatei : TFileName; Anzahl : integer );
var
VerladeListe, ContainerListe : TStrings;
begin
// Ich hole mir schon mal ein leeres Blatt, ich muss ja was aufschreiben :o)
ContainerListe := TStringList.Create;
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
5. Okt 2011
Das mit dem Memo ist schon mal ganz schlecht.
Ein TMemo ist ausschließlich für eine visuelle Darstellung/Erfassung gedacht und nicht für die Logik.
Wenn du den Dateinamen für die Ein und Ausgabedatei, sowie die Anzahl der Fässer hast dann am besten so
procedure VerladeFaesser( const VerladeDatei, ContainerDatei : TFileName; Anzahl : integer );
var
VerladeListe, ContainerListe :...