Individuelle Dateinamen *.txt

[mkinzler]

Delphi-Quellcode:

FileName := Edit1.Text + '.Daten.txt';

AssignFile( f, FileName);

[pcgamer03]

Okay. das sieht ja relativ logisch aus. habe jetzt versucht das zu programmieren:

Delphi-Quellcode:

var Daten:textfile; FileName:string;
begin
  FileName := Edit1.Text + '.Daten.Text';
  Createfile(Daten, 'D:\\FileName')
  AssignFile(Daten, FileName);

so würde jetzt bei mir der teil zum erstellen aussehen. das funktioniert aber nicht da in der zeile "createfile" ein fehler kommt. "Inkompatibele Typen Text und PChar"

[mkinzler]

AssignFile() setzt den Dateinamen. Mit Rewrite() wird diese dann zum Schreiben geöffnet/erzeugt.

[pcgamer03]

okay soweit so gut! vielen dank erstmal dafür! ist schon bitter, dass ich für diese Paar zeilen insgesamt ca. 10 Std. im Internet recherchiert habe. DANKE!

nun zu meinem nächsten problem. (Tut mir leid :oops: ;-) )

ich möchte jetzt die 10 datein die dadurch erstellt wurden (mit infos wie "alter, geschlecht, hobbies, gesuchtes geschlecht, gesuchtes alter usw.) miteinander vergleichen und die mit den größten übereinstimmung in alter/gesuchtes alter, hobbies und geschlecht/gesuchtes geschlecht zusammen ausgeben also z.b. "Max Mustermann passt zu Karl Heinz".
ich habe in einem forum gelesen dass man das mit einer strlist machen kann. was würdet ihr vorschlagen?

die *.txt dateien die angelegt wurden sehen so aus:

Name:Mustermann
Vorname:Max
Alter:22
Geschlecht:männlich
Chillen:0
Sport:1
Kultur:1
Lesen:1
Parties:0
SucheMin:18
SucheMax:24
SucheGeschlecht:weiblich

nochmal danke (du hast mir sehr weiter geholfen!) :-)

[mkinzler]

Delphi-Quellcode:

sl: TStrings;
...
  sl := TStringList.Create;
  sl.LoadFromFile( Filename);
  Name := sl.Values['Name'];
  ...
  sl.Free;

[pcgamer03]

also das erste soll die variable sein?

dann wird eine Stringlist erstellt und ladet die daten aus einer bestimmten Datei (in dem fall sollte sie die daten der person die einen partner sucht laden, also edit1.text + '.daten.text') und mit allen anderen *.txt datein in dem ordner vergleichen.
wie kann man die anderen daten in strlists laden und mit der aktuellen vergleichen?
und wie kann ich das machen, dass z.b. alle treffer ab 80% ausgegeben werden (100%ige übereinstimmung ist ja eher selten)?

mein quelltext für den button "Partner Suchen" sieht bis jetzt so aus:

Delphi-Quellcode:

var strlist:TStringList; sl:TStrings; FileName:string; Daten:textfile;
begin
   sl := TStringList.Create;
   FileName := Edit1.Text + '.Daten.Text';
   sl.LoadFromFile(FileName);
   sl.Free;

Gruß pcgamer03

[mkinzler]

sl ist die StringListe. (TStrings ist virtueller Basistyp)
Die eingegeben Daten kannst du einfach mit

Delphi-Quellcode:

<StringList>.Add( 'Name='+Edit1.Text);
<StringList>.Add( 'Vorname='+Edit2.Text);
...
<StringList>.SaveToFile( Edit1.Text+'Daten.txt');

[pcgamer03]

Das ist doch eigentlich das gleiche wie das was ich Vorher schon habe nur mit einer Stringlist, oder?
Ich möchte ja jetzt alle Textdatein mit den Daten aus der Stringlist vergleichen.
Muss ich das mit read(Daten) machen oder wie geht das?

[mkinzler]

Nacheinander alle Einlesen Datein in Strimgliste und mit der aktuellen vergleichen. Einfacher wäre es wie gesagt, bei der Verwendung einer Datenbank.

[pcgamer03]

Also entweder war das jetzt ein Missverständnis oder ich bin doof! ;-) :oops:
Das was du jetzt geschrieben hast bringt mir doch nur was zum "manuellen" vergleichen, also SELBST vergleichen. Ich möchte, dass das Programm die Dateien einliest und automatisch miteinander vergleicht. Tut mir leid dass ich das so kompliziert machen muss aber Datenbanken dürfen wir nicht verwenden.
Also ich suche quasi den/die Befehl/e zum vergleichen.

Liebe Grüße,
pcgamer03