Bestimmte Daten aus txt lesen die durch ; getrennt sind

[hboy]

echt nicht schlecht .

[Pseudemys Nelsoni]

wozu hast du 2mal "var" benutzt hboy?

[cyberkiller0072001]

Also ich denke, man könnte das Problem geschickter mit inis Lösen:
[Nachname]
Vorname=Marcel
Straße=Tollerweg
usw..

MfG Daniel

[Jens Schumann]

Hallo

Zitat von cyberkiller0072001:

Also ich denke, man könnte das Problem geschickter mit inis Lösen:
[Nachname]
Vorname=Marcel
Straße=Tollerweg
usw..

MfG Daniel

kann schon sein. Aber was machst Du, wenn Du die Daten in der Form geliefert bekommst und Du
keinen Einfluß auf das Format hast ???

[Luckie]

Desweiteren sind Ini's nur für kleine Datenmengen geeignet.

[hboy]

Zitat von Pseudemys Nelsoni:

wozu hast du 2mal "var" benutzt hboy?

Weil ich die Variablendeklaration vorher bei der implementation drin hatte und sie nur markiert und hochgezogen hab. Ist aber unnötig. aber egal.

[cyberkiller0072001]

Das ist schlecht...
Was heißt kleine Datenmengen?
Und was passiert ansonsten?
Das könnte meinem Projekt den Rest gebn...

[bronstein]

Möchte jetzt noch, wenn man die gleiche PLZ hat dass ein Zähler um 1 erhöht wird

[bronstein]

Zitat von hboy:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;
var
  zeile: Array[0..10] of string[255];

implementation

{$R *.dfm}

const 
sep = ';'; 

procedure zerlegen(s: string); 
var
currentitem:integer; 
i: integer; 

  procedure nextitem;
  begin
    inc(currentitem);
    zeile[currentitem] := '';
  end;

begin
  currentitem :=-1;
  nextitem;
  for i :=1 to length(s) do
  begin
    if s[i] <> sep then
      zeile[currentitem] := zeile[currentitem] + s[i]
    else
      nextitem;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  memo1.Clear;
  zerlegen(edit1.Text);
  for i:=0 to 10 do memo1.Lines.Add(zeile[i]);
end;

end.

Möchte jetzt noch, wenn man die gleiche PLZ hat dass ein Zähler um 1 erhöht wird

[MrKnogge]

Du vergleichst sie in einem if-zweig miteinander und wenn sie gleich sind, erhlst du eie variable !

Das ganze packst du am besten in eine for-Schleife