vintage storage

... Es war alles schon mal da ...

Kategorie: Progging

Delphi TStringList ohne StrictDelimited

Bekanntlich fehlt in den ganz alten Delphi-Versionen die Property StrictDelimited. Diese trägt beim Zuweisen von .DelimitedText dafür Sorge, dass nicht jedes Leerzeichen ebenfalls als Delimiter betrachtet wird. Durch einen kleinen Trick erreicht man aber dies aber auch z.B. in einem Delphi 7, indem man das Leerzeichen vorher durch ein Zeichen ersetzt, was in einer CSV-Datei nicht vorkommen darf.

var
  tsl: TStringList;
  oneLine: String;
begin
  tsl := TStringList.Create;
  oneLine := '1;2  3;5;Achtzehn Uhr';
  try
    tsl.Delimiter := ';';
    // Replace all ' ' by a '#' before assigning it to .DelimitedText
    tsl.DelimitedText := StringReplace(oneLine, ' ', '#', [rfReplaceAll]);
    // Replace it back in the .Text property
    tsl.Text := StringReplace(tsl.Text, '#', ' ', [rfReplaceAll]);
    // ... now all columns are strictly delimited by ;
    // ... tsl[0] = '1', tsl[1]='2  3', tsl[2]='5', tsl[3]='Achtzehn Uhr'

Geschichte der Programmiersprachen

so lautet der Titel meines Vortrages an unserem Tag der offenen Tür im Computermuseum Visselhövede. Bin noch dabei diesen auszuarbeiten, da das Themenfeld ja schier unglaublich breit gefächert ist.

Von der Gliederung her werde ich den Anwesenden erstmal grob den Aufbau eines Rechners am Beispiel der verbreiteten Von-Neumann-Architektur erläutern. Das schafft eine gewisse Grundlage zu verstehen, was sich im Innern eines Prozessors abspielt, wenn Programme verarbeitet werden.

Dann geht es tatsächlich in die Historie, angefangen bei Ada Lovelace und der Analytical Engine von Babbage, über die Anfänge der ersten elektronischen Computer bis in die Neuzeit der Computersprachen. Grundlagenkenntnisse möchte ich dabei nicht voraussetzen, sondern werde es auf einer möglichst abstrakten und einfachen Ebene versuchen zu erläutern.

Weiter ist auch in Planung dies anhand einiger, weniger Beispiele sozusagen am lebenden zu demonstrieren. Bevor ich es völlig vergesse, der Tag der offenen Tür ist historisch gewachsen am 3. Oktober 2017 in unseren Clubräumen. Weitere Informationen gibt es hier

© 2018 vintage storage

Theme von Anders NorénHoch ↑