string zwischenspeichern?

[tripplex]

hallo, ich habe eine function die mir einen string ausgibt, jetzt möchste ich gern dass der string zwischengespeichert wird, bis er sich ändert. Wie mache ich das am besten

[Neutral General]

Jetzt mal anhand ner Function die Zahlen zurückgibt:

Delphi-Quellcode:

function GibMirNeZahl: Integer;
begin
 Result := random(10);
end;

procedure Ka;
var Temp,Temp2: Integer;
begin
 Temp := GibMirNeZahl;
 repeat
  Temp2 := GibMirNeZahl;
 until Temp2 <> Temp;
end;

Naja soo ungefähr würd ichs vielleicht machen.. aber es kommt drauf an welches problem du genau hast.. weil das mit der Schleife bietet sich wahrscheinlich nicht oft an :mrgreen:
Und meine Function + ausführung ist halt sehr verallgemeinert... ^^

PS: Hoffe ich hab dich ansatzweise richtig verstanden ^^
PPS: Ich glaube du meinst das noch viel einfacher..
mom.. ich editier das grad mal..
PPS: Sry ich bin grad zu müde um mein Kopf anzustrengen -.-
Und das was oben steht ist auch Schwachsinn -.-

Gruß
Neutral General

[tripplex]

also die function wird mit nem timer aufgerufen, und ich will dass der string von der function dann zwischengespeichert wird, und sich erst ändert wenn der string sich ändert

[HuxXx]

Du könntest es in einer lokalen variable speichern...,
das bleibt dann über den ganzen Programmablauf.

Du kannst es über dem implementation deklarieren...

Beispiel:

Delphi-Quellcode:

    { Public declarations }
  end;

var
  Form1: TForm1;
var die_variable:string;

implementation

Hab irgendwie das Gefühl, ich hab dich falsch verstanden >.<

[Neutral General]

Delphi-Quellcode:

var T1,T2: String;

procedure Timer1.OnTimer(Sender: TObject);
begin
  if T1 = T2 then
   T1 := NeuerString
  else
   T2 := NeuerString;
end;

Sollte ich jetzt keine dummen Denkfehler drinhaben... dann müsste das so eigentlich klappen..
Also ich probiers grad ma aus..

Edit: Also ich habs getestet. Zwar mit Zahlen aber das dürfte keinen Unterschied machen. Voraussetzung ist halt das am Anfang beide
Strings gleich sind bzw ''

Gruß
Neutral General

[tripplex]

danke general hat funktioniert