Deutsches Lazarusforum

hendy

kann man nicht in einer variable speichern, diese in eine Textdatei schreiben und diese dann als report verwenden?

hendy

ich habe das heute nochmal anders umgesetzt, aber nun ist das Ergebnis, dass nur das höchste Element an der ersten stele steht, der rest ist mit -1 gefüllt, das sollte eigentlich nicht sein.
Kann mir jemand helfen?
var
Fenster: TFenster;
Sortiere: array of integer;
Sort:array of integer ...

hendy

Anscheinend hakt es hier:

Code: Alles auswählen

for j:=0 to Elemente-1 do
  begin
    Fenster.Ausgabe.Items.Add('Ausgabe: '+inttostr(Sort[0]));
    Sort[0]:=-1;
    Aufruecken(0);
  end;

Wenn ich dortt breakpoints setze, macht er das ein paar mal, und macht dann SIGSEV.
Ich bin mit dem Latein am Ende

hendy

mmmh mach ich mal.
Bis jetzt schmeißt er immer noch SIGSEV ohne Zeile, auch wenn ich 17 platz beanspruche -.-
Muss nochmal den Algorithmus überarbeiten

hendy

oh du hast recht theo.
Und danke für die vorschläge socke

hendy

Nu ja ich habe in Informatik die Aufgabe bekommen, einen Sortieralgorithmus zu programmieren, den ich schon als Struktogramm habe.
Dabei zeigen sich allerdings ein paar schwierigkeiten mit Laz.
hier ist der code, er schmeißt mir immer SIGSEV entgegen
function Groesser( i:integer):Integer ...

hendy

ich benutze das hauptsächlich so
type
Htest = record
x,y,xsize,ysize:integer;
andereEigenschaften:string;
end;

//blablabla

procedure 1;
begin
with <instance of HTest> do
x:= 12;
y:=12;
xsize:= 12;
ysize:=4;
andereEigenschaften := 'irgendwas';
end;
end;

Also in selbst definierten ...

hendy

warum soll with schlecht sein?
Ich benutze es selber auch, hatte noch nie Probleme damit

hendy

nein faxen geht eigentlich noch...

hendy

if zwerg=z then form1.memo1.text:=('Zahl geraten, gewonnen! '+ form1.edit2.text);
if zwerg>z then form1.memo1.text:=('Zahl zu groß '+ form1.edit2.text);
if zwerg<z then form1.memo1.text:=('Zahl zu klein '+ form1.edit2.text);

memo1.append('Ein string') ist es, was du suchst

hendy

ähm wie deaktiviert?
Nicht anwählbar, nicht sichtbar?

Code: Alles auswählen

Pagecontrol1.Tabsheet1.enabled:=false;

lässt dich kein element in dem Tab anwählen, ist aber sichtbar

Code: Alles auswählen

Pagecontrol1.Tabsheet1.Tabvisible:=false;

zeigt auch den Tab selber nicht an.

hendy

Code: Alles auswählen

strtoint(edit6.text)

ein leerzeichen ist nun halt keine Zahl...
Aber theorhetisch währe es ja möglich ein string in eine Zahl umzuwandeln

hendy

Ich wünsche allen hier im Forum ein frohes Osterfest

hendy

M.selstart und m.sellength

das gibt dir den anfang des ausgewählten textes zurück...
Aber selber hab ich auch keine Ahnung.

hendy

Weißt du wo du hier bist?
Nicht in einem "wir kennen alle guten Ego-shooter" forum

Deutsches Lazarusforum

Die Suche ergab 80 Treffer

Re: Abarbeitungsreihenfolge

Re: Umsetzung eines Sortier algorithmus

Re: Umsetzung eines Sortier algorithmus

Re: Umsetzung eines Sortier algorithmus

Re: Umsetzung eines Sortier algorithmus

Umsetzung eines Sortier algorithmus

Re: Von anderer Klasse aus Objekte in der TForm erstellen

Re: Von anderer Klasse aus Objekte in der TForm erstellen

Re: Uralt-neuer und Hilferuf

Re: Memory feld !?

Re: Howe can i disable a tabsheet ?

Re: strtoint klappt nicht

Frohe Ostern

Re: TFindDialog / Wortsuche im Memo1-Fenster...

Re: Ego-Shooter gesucht!