Bestimmte Daten aus txt lesen die durch ; getrennt sind

[hboy]

echt nicht schlecht :thuimb:.

[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:

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:

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:

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 :)