puh da ist zu viel bei wovon ich noch nie etwas gehört habe. Probiere gerade eure Tips so umzusetzen, dass ich nur das nutze was wir auch bisher an Werkzeug an die Hand bekommen haben, leider erfolglos.
Teilprobleme sind meiner Meinung nach:
1. Recorddatei 'sprueche.db' erzeugen (klappt noch)
Code:
type Tsprueche=record
spruch:string[200];
autor:string[50];
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(datei,'C:\...\'+'sprueche.dat');
IF fileexists('C:\...\'+'sprueche.dat') THEN
Reset(datei) ELSE Rewrite(datei);
end;
2. Die Sprüche aus der sprüche.txt Textdatei in die record datei namens datei schreiben, dabei nach spruch und autor trennen
3.Button1Click, also zufälligen Spruch ins Memo schreiben
Code:
procedure TForm1.Button1Click(Sender: TObject);
var spruch, autor:string;
begin
nr:=random(filesize(datei));
seek(datei,nr);
//*Wie kann ich nun das was er da geseeked hat als string unter spruch speichern und den autor unter autor?
spruch:= //alles vor ;
autor:= //das nach ;
memo1.Lines.Add(<spruch>+'von'+<autor>)
end;
Ich wäre für jeden weiteren Tipp sehr dankbar, dennoch habe ich die bereits vorhandenen Tipps auch noch nicht 100% durchschaut, daran arbeite ich gerade
