Løkker i funktioner

Break
Continue

martinlind, jeg kan ikke rigtigt styre, hvilken af løkkerne, jeg afbryder med Break. Der er jo to kald til min OnScreen funktion i gang.

Break afbryder den lykke du er i, hvis du vil helt ud af din function kan du bruge Exit

/Martin

Jeg har prøvet at sætte et flag i den funktion, der modtager den nye tekst, kontrollere flaget i løkken og, i givet fald, bruge Break. Det resulterer i, at jeg afbryder den nye løkke og den nye tekst ikke bliver udskrevet. Samme resultat med Exit.

Jeg tror ikke helt jeg kan gennemskue hvad du søger, kan du komme med noget kode eks.

De to procedurer, jeg bruger :

procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var oldText: string;
begin
  oldText := NewText;
  NewText := InputBox(\'New string\', \'Enter string\', NewText);
  if oldText <> NewText then
  begin
    TextChanged := True;
    OnScreen;
  end;
end;

procedure OnScreen;
var i: integer;
begin
  i:= 1;
  while i < Length(NewText) do
  begin
    PutOut(NewText[i]);
    Repaint;
    Sleep(20);
    Application.ProcessMessages;
    if TextChanged then
    begin
      TextChanged := False;
      Break;
    end;
    Inc(i);
  end;
end;

Du kan jo prøve at ændre

if TextChanged then
begin
  TextChanged := False;
  Break;
end;
   
til

if TextChanged then I := 1;


så burde den jo starte forfra med det der står i NewText

Det gør den også. Og når den er færdig, går den tilbage til det punkt, hvor den blev afbrudt, og kører igen færdig derfra.

Hvad med sådan :

procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var oldText: string;
begin
  oldText := NewText;
  NewText := InputBox(\'New string\', \'Enter string\', NewText);
  if oldText <> NewText then
  begin
    TextChanged := True;
    Application.ProcessMessages;
    OnScreen;
  end;
end;

procedure OnScreen;
var i: integer;
begin
  i:= 1;
  while ( i < Length(NewText) ) and not TextChanged do
  begin
    PutOut(NewText[i]);
    Repaint;
    Sleep(20);
    Application.ProcessMessages;
    Inc(i);
  end;
end;

Evt. kan du Droppe din Sleep(20); du har jo en ProcessMessages;

kan bare bruge while lykker hvor du tæller nogle variabler ned, for så kan du bare sætte disse variabler til 0 eller sådan noget og så skulle den ikke gå videre.

poull >> der er brugt en While løkke med et Flag, hvilket giver samme.

martinlind >> jeg kan bare lære at læse spm\'et helt færdig. :)

martinlind >> hvis jeg tager \"and not TextChanged\" med i min while-løkkes betingelse, kommer jeg jo ikke ind i den, når jeg ændrer teksten (og dermed sætter TextChanged til True).

Det må jeg jo gi dig ret i, det var lige en smutter *S*

Jeg bliver altså nød til at spørge hvorfor du gør det så besværligt, kan du ikke bare skrive teksten ud ?

Hvad gør PutOut() ?

/Martin

Jeg prøver at få det til at se lidt smart ud. Jeg har i øvrigt lavet om på måden, teksten bliver vist på - jeg har lavet et display - 10 X 100 \"dioder\" (TShape, type: circle, color: black/lime) - teksten kommer rullende over skærmen og skal kunne ændres. Jeg kunne egentligt også tænke mig at høre, om ikke der er en smartere måde at gøre det på - men det lægger jeg ud i et separat spørgsmål ... på et eller andet tidspunkt ... hvis jeg husker det

Well, boys and girls, jeg har fundet en anden måde at løse mit problem på.

Som det er nu, afbryder jeg løkken i udskrifts funktionen ved at ændre teksten og laver et nyt kald til denne funktion, men jeg afslutter ikke det første - derved bliver der lavet en ny kopi af funktionen med en ny tæller (og hvis jeg ændrer teksten igen inden den er skrevet færdig, laver jeg en tredje kopi o.s.v.) - og, så vidt jeg kan se, kan jeg kun styre den sidst oprette kopi af tælleren. Så når den sidst oprettede kopi af funktionen gør dens løkke færdig, går programmet tilbage til den pausede forrige kopi og gør den færdig.

Her er så den løsning, jeg brugte : i stedet for en lokal tæller i udskrifts funktionen bruger jeg en tæller, der hører til min form. Når kopi nr. 2 af funktionen afslutter, er tælleren nået slutningen af strengen. Så når den første kopi af funktionen får kontrollen igen, hopper den ud af løkken med det samme - slutningen er jo nået.

Forresten, nu kan jeg helt undvære min TextChanged.

Så jeg tager point\'ene tilbage ... Men hvis I kommer i en tilsvarende situation - så har I en løsning.