Deutsches Lazarusforum

Hilfe!

Stehe grad vor einem riesen Problem!!!

Ich habe mehrere Rechnungen in meinem Programm und wenn ich einen Wert mit 0,00000000 multipliziere bekomme ich eine Fehlermeldung... wenn es allerdings nur 0 ist funktioniert ist und es funktioniert ebenso wenn die Zahl 0,021052632 lautet.

Habe alles ...

Hätte ich dazu sagen sollen, ich weiß nicht wo das auf dem anderen PC landet.
Also ich packe alles in einen Ordner auf nen USB Stick und eine andere Person möchte das Programm dann auf ihrem PC laufen lassen.

Hey ihr :)

In meinem Programm muss ich ziemlich viele Daten einlesen, verarbeiten und wieder speichern.
Diese Daten befinden sich alle in Textdateien und ich öffne sie mit LoadFromFile und dem vollständigem Dateipfad, der ja dann so aussieht:
C:\Users\Name\Desktop\Datei.txt
Wenn ich jetzt aber das ...

Oh man... SORRY!!!

Ich habe den Fehler schon gefunden!

Da fehlte einfach nur ein end;

Komisch das ich das Tagelang nicht sehe und kaum schreibe ich hier rein, fällt es mir auf!

Hallo!

Brauche mal wieder eure Hilfe! :(
Ich bin wirklich am Verzweifeln!!! :cry: :cry: :cry:
Seit Tagen suche ich diesen einen Fehler und komme auf nix! :oops:
Erhalte im unten abgebildeten Code die im Betreff genannte Fehlermeldung und ich weiß nicht woran es liegt.
Ich weiß, dass es bedeuten ...

@baumina: Danke für den Tip, habe ich ergänzt!

@Horst_h: Danke! Das werde ich mir mal genauer anschauen!

Hi!

Danke für eure Hilfe! :)

Ich habe es nun erstmal wie folgt versucht

procedure TForm1.Button8Click(Sender: TObject);

var

sl1,sl2,sl3: TStringList;
nz1,nz2: integer;
ergebnis: single;

begin

sl1 := TStringList.Create;
sl2 := TStringList.Create;
sl3 := TStringList.Create;

sl1 ...

Wenn ich 31.536.000 Werte die je 14 Zeichen haben, abspeichern möchte, ist ein Memo wohl zu klein?!

Gibt es eine alternative?

Viele Dank schon mal!

Gruß Gilli

ja, ich weiß, dass das bei 0 beginnt.

Okay, es lag nur an dem break

Jetzt funktioniert das! Danke!!

Hier mal der Ganze Code, vielleicht einfacher dann :D

var
a,b:string;
i,c:integer;

begin
a:=Edit1.Text;
b:=Edit2.Text;

Memo1.Lines.LoadFromFile('C:\Users\Desktop\typtage'+a+'.txt');
Memo2.Lines.LoadFromFile('C:\Users\Desktop\Zone'+a+'EFH_'+b+'.txt');

for i:= 1 to Memo1.Lines.Count-1 ...

zu wenig Information.
Was sind Typtage und Faktoren? Was steht drin?
Und vor allem: Was ist Kauderwelsch?
Bitte mach etwas genauere Beschreibungen, wenn du Hilfe suchst.

Also Typtage und Faktoren sind einfach nur 2 Memos, bzw die Namen dafür statt Memo1 usw.

Ich gehe also das erste Memo (Typtage ...

Hallo,

ich habe folgendes Problem:

Ich möchte eine bestimmte Zeile aus einem Memo einer Variable zuweisen (es handelt sich um eine Zahl), aber irgendwie kommt da nur Kauderwelsch bei raus! :(

Und ich weiß grad nicht wo der Fehler liegt!

Hier der Code:


if rightstr(Typtage.Lines[i],3) = 'UWH ...

Problem gelöst!

Musste MaxLength vom Memo auf 10.000 setzen und nun läuft es!

Denn Tip von Theo habe ich umgesetzt!

Vielen Dank!

Danke!

Lag daran!

So, jetzt werden aber nur 31 Tage ausgegeben.

Denke mal es liegt daran, dass der Januar 31 Tage hat. Scheinbar springt der nicht in den nächsten Monat. kann das sein?

@theo: Danke, das werde ich mal so testen!

Hallo liebe Gemeinde!

Ich müsste mal wieder eure Großzügige Hilfe in Anspruch nehmen! :)

Folgende Situation:

Ich möchte für ein Jahr runterschreiben ob es sich um einen Werktag oder Wochenende handelt (für jeden Tag), so habe ich mal angefangen:



procedure TForm1.Button1Click(Sender: TObject ...