Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
Nach langem Rumprobieren klappts es nun.
Sorry, aber ich bin echt neu im Programmieren, nicht kreativ mit Variablennamen und wie man übersichtlich formatiert ist mir auch noch nicht recht klar :P
Aber trotzdem vielen Danke euch allen
Lg,
Flo
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
Es wird -1 zurückgeliefert. Aber warum findet er s3 nicht in der Datei, die Vokabel steht doch schließlich in ihr :o
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
Vielen Dank schonmal, nur leider kommt immer noch eine Fehlermeldung :oops:
for i3:=num downto 0 do begin
ReadLn(td3,s2);
ReadLn(td4,s3);
abfrage2:=inputbox('Wiederholung',s2,'');
if (uppercase(abfrage2)=uppercase(s3)) then begin
showmessage('Richtig!');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
procedure TForm1.Button1Click(Sender: TObject);
var td1,td2,td3,td4,td5:textfile; s,s2,s3,fr,abfrage,abfrage2,belub,belub2:string; i,i2,i3,i4,n,n2,azf,azr,num,g1:integer;pro,pro2:real;list,list2:Tstringlist;
begin
num:=0;
n:=0;
azr:=0;
azf:=0;
AssignFile(td1,'C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\lateinvok.txt');
Reset(td1);...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
Klingt logisch :P
Aber wie soll ich etwas in die Textdatei speichern, ohne es vorher freigegeben zu haben? Dann kommt folgende Fehlermeldung :P
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
List:=TStringList.create;
List.LoadFromFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
for i3:=0 to num-1 do begin
ReadLn(td3,s2);
ReadLn(td4,s3);
abfrage2:=inputbox('Wiederholung',s2,'');
if (uppercase(abfrage2)=uppercase(s3)) then begin
showmessage('Richtig!');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
Und wie löse ich das Problem dann?
Mit list.free?
Grüße,
Flo
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
Bei folgendem Quelltext kommt folgende Meldung:
List:=TStringList.create;
List.LoadFromFile('C:\Users\Florian\Desktop\Delphidateien\Vokabeln-Auslesen\unsicherevoklat.txt');
for i3:=0 to num-1 do begin
ReadLn(td3,s2);
ReadLn(td4,s3);
abfrage2:=inputbox('Wiederholung',s2,'');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Flopa,
5. Jan 2012
Hallo Leute,
ich bin ein kompletter Anfänger und wollte mir ein Programm zum Abfragen von Vokabeln abfragen.
Das klappt alles auch schon soweit, nur möchte ich, dass eine Vokabel aus einer .txt-Datei gelöscht wird, wenn sie richtig beantwortet wurde.
Ich sitze heute schon den ganzen Tag dran und habe gegooglet, aber mit List.Delete(1) klappt das irgendwie nicht.
...