Textdateien und Dezimalwerte addieren

[Honk]

Hi Leute!
Ich stehe vor folgendem Problem und weiß nicht wie ich es bewältigen soll.
Ich muss gleich dazu sagen das ich dieses nicht per Datenbank machen möchte sondern wirklich mit Textdateien ;)
Ich habe schon Stunden damit verbracht im Netz etwas zu finden das mich irgendwie weiterbringt aber leider ohne wirklichen Erfolg.


Ich habe eine Textdatei (namen.txt) deren Inhalt wie folgt aufgebaut ist:
Klaus1.0
Anne1.0
Hanz1.0
...

Eine Zweite Textdatei (stadt.txt) die wie folgt aufgebaut ist:
Berlin
Hamburg
München
...

und eine dritte Textdatei (land.txt):
Schweiz
Deutschland
Österreich


Jetzt soll folgendes per Button Klick in ein Edit eingetragen werden:
Per Zufall gewählte Zeile aus Textdatei-1 + Per Zufall gewählte Zeile aus einer Textdatei-2 + Per Zufall gewählte Zeile aus 3 Textdatei

Der string sieht letztendlich dann ca so aus:
Klaus1.0.Hamburg-Deutschland

Bevor der ganze String aber zusammengebaut wird soll vorher überprüft werden ob "Klaus1.0" in Textdatei1 vorhanden ist und wenn ja, muss "Klaus1.0" in "Klaus1.5" umgewandelt werden (immer in 0.5 Schritten erhöht werden) und dann an der Zeile in Textdatei1 in der sich Klaus1.0 befunden hat überschrieben werden mit den neuen Wert "Klaus1.5". und danach wird der String völlig zusammengebaut und in Edit eingetragen.

Das addieren der 0.5 dezimalzahlen soll natürlich immer weiter geführt werden also wenn Klaus 1.5 dann Klaus 2.0 .. Klaus2.5 usw

Ich hoffe ihr konntet nachvolziehen was mein Problem ist und könnt mir irgendwie helfen :)

Gruß,
Honk!

[glkgereon]

also, ich hoffe ich hab dich richtig verstanden
falls ja ist hier eiun lösungsvorschlag:

Delphi-Quellcode:

//aus datei lesen
var punkte:real;// (verwendet man double, egal...)
begin
memo1.Lines.LoadfromFile('WasWeiss.ich');
punkte:=strtofloat(Memo1.Lines.Text[5]+Memo1.Lines.Text[6]+Memo1.Lines.Text[7]);
//also, text in memo, stellen wo zahl steht in string, und dann StringToFloat
end;

//in datei schreiben
var punkte:real;
begin
Memo1.Lines.Text[5]:=inttostr(punkte mod 10);
Memo1.Lines.Text[6]:='.';
Memo1.Lines.Text[7]:=inttostr((punkte * 10) mod 10);
//also, stelle für stelle von zahl in memo, dann speichern
memo1.Lines.SavetoFile('WasWeiss.ich');
end;

[Honk]

Danke für eure Antworten habe es nun fast fertig =)

gruß,
honk