Text-datei und PLZ

[Blackheart]

Wenn es nur kleine Datenmengen sind würde sich eine Ini Datei anbieten, dürfte wohl das einfachste sein. (Big Ini)

[Kunoishi]

wie meinst du das?

[Klaus01]

Zitat von Kunoishi:

wie meinst du das?

Worauf beziehst Du dich?

Mehrere PLZ pro Ort ist in Städten nichts ungewöhnliches.
Es kommt sogar vor das eine Straße mehrere PLZ haben kann.

Grüße
Klaus

[Kunoishi]

mmm ich habe einmal vor mich auf die PLZ oder den Ort zu beziehen

solte ich also die straße auch noch mit hinzunehmen ?

[Jürgen Thomas]

Zitat von Kunoishi:

mmm ich habe einmal vor mich auf die PLZ oder den Ort zu beziehen

solte ich also die straße auch noch mit hinzunehmen ?

Und die Hausnummern und die Postfächer und die Liste der Großempfänger wie Quelle, Deutsche Rentenversicherung usw. Beispiel: Die Berliner Straße gibt es in Berlin 8 Mal, also brauchst du zunächst den Ortsteil. Für diejenige in Pankow musst du dann unterscheiden zwischen den Hausnummern 1-13 (ungerade), 2-14 (gerade), 115-Ende (ungerade), 116-Ende (gerade) mit PLZ 13187 und den Nummern 15-113 (ungerade), 16-114 (gerade) mit PLZ 13189.

Schau doch einmal in das große gelbe Buch der Deutschen Post AG oder in die entsprechenden Daten, siehe Datafactory Postalcode

Jürgen

[Blackheart]

Zitat von Kunoishi:

wie meinst du das?

Weiß jetzt nicht wen du gemeint hast, antworte mal trotzdem drauf.
Schau dir mal dieses Ini Tutorial an ist sehr einfach beschrieben.
Da früher Ini nur Datenmengen bis 64 kb aufgenommen haben (Vieleicht ist es heut anders) kann ich Big Ini empfehlen.

[Kunoishi]

jetzt wollte ich mir einen kleinen luxus in meinem programm gönnen und nun wird dit zu einem soooooooo großen problem.
na toll

Delphi-Quellcode:

procedure PLZ1Click(Sender: TObject);
.
.
.

var
  sl: TStringList;
  plz: TStringList;
  Ort: TstringList;

implementation
.
.
.

procedure TSachverhaltForm.PLZ1Click(Sender: TObject);
var i:integer;
begin
  plz :=TstringList.create;
  Ort :=TStringList.create;
  sl  :=TstringList.create;
  sl.LoadFromFile('PLZ.txt');
  for i:= 0 to sl.count -1 do
    begin
      plz.add(copy(sl[i],1,5));
      ort.add(copy(sl[i],6,length(sl[i])));
    end;
  sl.free
  EditTPlz.Text :=plz[ort.indexof(EditTOrt.text)];
  plz.free;
  ort.free;
end;

er gibt mir bei editTPLZ.Text :=plz....
den fehler aus Operator oder Semikolon fehlt.


warum das ?

[DeddyH]

Weil in der Zeile davor ein Semikolon fehlt

[Kunoishi]

oh man, ick sehe den wald vor lauter bäume nicht

danke

[Mithrandir]

Handelt es sich um die PLZ-Datei der OpenGeoDB?